diff options
| author | sternenseemann <sternenseemann@systemli.org> | 2021-09-26 14:38:52 +0200 |
|---|---|---|
| committer | sternenseemann <sternenseemann@systemli.org> | 2021-09-26 14:38:52 +0200 |
| commit | 46e810ac94dbdccecd1f03e0ce073e2268453c61 (patch) | |
| tree | f79ab9ccc6a370375e83125d17755191d8ac419b | |
| parent | 236dfb0c8d971dd663fd2a8fef1c57e0bc6fe6af (diff) | |
emacs/bqn-input.el: key-sequence is never a list
This is a small refactor removing sort-of-dead code. This of course
removes the possibility to define multiple keys for a certain BQN
character, but I'm not sure this is an actual use case we need to
preserve.
| -rw-r--r-- | editors/emacs/bqn-input.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/editors/emacs/bqn-input.el b/editors/emacs/bqn-input.el index 82c0184b..db462c97 100644 --- a/editors/emacs/bqn-input.el +++ b/editors/emacs/bqn-input.el @@ -24,9 +24,8 @@ (defun bqn--make-base-mode-map (prefix) (let ((map (make-sparse-keymap))) (dolist (command bqn--symbols) - (let ((key-sequence (caddr command))) - (dolist (s (if (listp key-sequence) key-sequence (list key-sequence))) - (define-key map (bqn--kbd (concat prefix s)) (bqn--make-key-command-sym (car command)))))) + (let ((key (caddr command))) + (define-key map (bqn--kbd (concat prefix s)) (bqn--make-key-command-sym (car command))))) (define-key map [menu-bar bqn] (cons "BQN" (make-sparse-keymap "BQN"))) map)) |