diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-09-26 09:49:35 -0400 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-09-26 09:49:35 -0400 |
| commit | a04a016c034fdca43fba617b2801c33e2afba1cf (patch) | |
| tree | 669451acaba31182536c0e41f81bce83891f8bb5 | |
| parent | 544bb946fac54e568be98ee973f1ad8a4b3c0926 (diff) | |
| parent | 6f11bdf308c325a921757a0817a6f60b5e338e85 (diff) | |
Merge pull request #25 from sternenseemann/emacs-fixes
emacs/bqn-backslash.el: key-sequence is never a list
| -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)) |