Fix typo, remap keyboard-quit

master
Matthew 6 years ago
parent 2df85b2b5e
commit 015da9ebf8
  1. 4
      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" "<backtab>" "<home>" "<end>" "<left>" "<right>" "<up>" "<down>" "<prior>" "<next>"))
(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))

Loading…
Cancel
Save