From fae96197aa58a7fe1424ea4e421d80629b1fa852 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Wed, 25 Aug 2021 14:09:43 -0400 Subject: =?UTF-8?q?Change=20emacs=20ligature=20sequence=20from=20s-=20to?= =?UTF-8?q?=20s-SPC,=20fixing=20broken=20s=20and=20=E2=80=BF=20input?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- editors/emacs/bqn-input.el | 7 ------- editors/emacs/bqn-symbols.el | 2 +- 2 files changed, 1 insertion(+), 8 deletions(-) (limited to 'editors') 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) -- cgit v1.2.3