From 015da9ebf8580f5a7353779a3ff8a41aefb1a0c6 Mon Sep 17 00:00:00 2001 From: Matthew Date: Thu, 19 Dec 2019 02:39:45 -0500 Subject: [PATCH] Fix typo, remap keyboard-quit --- eaf.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/eaf.el b/eaf.el index 305efce..0e4f67b 100644 --- a/eaf.el +++ b/eaf.el @@ -96,10 +96,10 @@ (defvar eaf-mode-map* (let ((map (make-sparse-keymap))) - (define-key map (kbd "C-g") #'eaf-keyboard-quit) (define-key map (kbd "C-h m") #'eaf-describe-bindings) (define-key map [remap describe-bindings] #'eaf-describe-bindings) (define-key map (kbd "C-c b") #'eaf-open-bookmark) + (define-key map (vector 'remap #'keyboard-quit) #'eaf-keyboard-quit) (define-key map (vector 'remap #'self-insert-command) #'eaf-send-key) (dolist (single-key '("RET" "DEL" "TAB" "SPC" "" "" "" "" "" "" "" "" "")) (define-key map (kbd single-key) #'eaf-send-key)) @@ -644,7 +644,7 @@ to edit EAF keybindings!" fun fun))) (message (format "export %s to html" (buffer-file-name)))))) (defun eaf-keyboard-quit () - "Layers on top of `keyboard-quit' but signals a ‘quit’ condition to EAF applications." + "Wrap around `keyboard-quit' and signals a ‘quit’ condition to EAF applications." (interactive) (eaf-call "action_quit" eaf--buffer-id) (call-interactively 'keyboard-quit))