diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-08-25 14:09:43 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-08-25 14:09:43 -0400 |
| commit | fae96197aa58a7fe1424ea4e421d80629b1fa852 (patch) | |
| tree | de9a948c74ab2b62d38bed446787b6a69b353512 | |
| parent | e46d1edb07cea7f9a5be26165213db8a17b4fa4f (diff) | |
Change emacs ligature sequence from s- to s-SPC, fixing broken s and ‿ input
| -rw-r--r-- | editors/emacs/bqn-input.el | 7 | ||||
| -rw-r--r-- | editors/emacs/bqn-symbols.el | 2 |
2 files changed, 1 insertions, 8 deletions
diff --git a/editors/emacs/bqn-input.el b/editors/emacs/bqn-input.el index 2ad842c5..4e847094 100644 --- a/editors/emacs/bqn-input.el +++ b/editors/emacs/bqn-input.el @@ -15,12 +15,6 @@ bqn--symbols)))) (make-insert-functions)) -(defun bqn-insert-spc () - "Insert a space. This is needed so that one can type a space -character when using the super-prefixed characters." - (interactive) - (insert " ")) - (defun bqn--kbd (definition) (if (functionp #'kbd) (kbd definition) @@ -32,7 +26,6 @@ character when using the super-prefixed characters." (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)))))) - (define-key map (kbd (concat prefix "SPC")) 'bqn-insert-spc) (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 a016a0a3..aede9dc8 100644 --- a/editors/emacs/bqn-symbols.el +++ b/editors/emacs/bqn-symbols.el @@ -139,7 +139,7 @@ ("left-double-arrow" "⇐" "?") ;; Space bar - ("ligature" "‿" " ") + ("ligature" "‿" "SPC") )) (provide 'bqn-symbols) |