diff options
| author | sternenseemann <sternenseemann@systemli.org> | 2021-09-26 15:43:47 +0200 |
|---|---|---|
| committer | sternenseemann <sternenseemann@systemli.org> | 2021-09-26 15:44:54 +0200 |
| commit | 6f11bdf308c325a921757a0817a6f60b5e338e85 (patch) | |
| tree | 669451acaba31182536c0e41f81bce83891f8bb5 | |
| parent | 544bb946fac54e568be98ee973f1ad8a4b3c0926 (diff) | |
emacs/bqn-backslash.el: key-sequence is never a list
Reflect changes of 46e810ac94dbdccecd1f03e0ce073e2268453c61 for
bqn-input in bqn-backslash.
| -rw-r--r-- | editors/emacs/bqn-backslash.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/editors/emacs/bqn-backslash.el b/editors/emacs/bqn-backslash.el index a667faff..8e130886 100644 --- a/editors/emacs/bqn-backslash.el +++ b/editors/emacs/bqn-backslash.el @@ -26,12 +26,8 @@ (let* ((prefix (string new)) (bqn--transcription-alist (cl-loop for command in bqn--symbols - for key-command = (cl-third command) - append (cl-loop for s in (if (listp key-command) - key-command - (list key-command)) - collect (cons (concat prefix s) - (cl-second command)))))) + collect (cons (concat prefix (cl-third command)) + (cl-second command))))) (quail-map-from-table '((default bqn--transcription-alist))))) (set-default symbol new)) |