diff options
| -rw-r--r-- | editors/emacs/bqn-input.el | 5 | ||||
| -rw-r--r-- | editors/emacs/bqn-symbols.el | 2 |
2 files changed, 3 insertions, 4 deletions
diff --git a/editors/emacs/bqn-input.el b/editors/emacs/bqn-input.el index 82c0184b..30af1ff3 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 (single-key-description (string-to-char (caddr command))))) + (define-key map (bqn--kbd (concat prefix key)) (bqn--make-key-command-sym (car command))))) (define-key map [menu-bar bqn] (cons "BQN" (make-sparse-keymap "BQN"))) map)) diff --git a/editors/emacs/bqn-symbols.el b/editors/emacs/bqn-symbols.el index aede9dc8..a016a0a3 100644 --- a/editors/emacs/bqn-symbols.el +++ b/editors/emacs/bqn-symbols.el @@ -139,7 +139,7 @@ ("left-double-arrow" "⇐" "?") ;; Space bar - ("ligature" "‿" "SPC") + ("ligature" "‿" " ") )) (provide 'bqn-symbols) |