From 46e810ac94dbdccecd1f03e0ce073e2268453c61 Mon Sep 17 00:00:00 2001 From: sternenseemann Date: Sun, 26 Sep 2021 14:38:52 +0200 Subject: 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. --- editors/emacs/bqn-input.el | 5 ++--- 1 file 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)) -- cgit v1.2.3