diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-09-26 09:42:28 -0400 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-09-26 09:42:28 -0400 |
| commit | 544bb946fac54e568be98ee973f1ad8a4b3c0926 (patch) | |
| tree | bb0a3e29f20480b3a1290dfab12df06c73709df7 | |
| parent | 13bc6cef6702d5e809c99251d4e1f356e046e65d (diff) | |
| parent | 23ad01959192779e17a313ac4537ae73bde2db00 (diff) | |
Merge pull request #24 from sternenseemann/emacs-fixes
emacs/bqn-symbols.el: fix mapping for space
| -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) |