From 911928f36fa7998a83eb94ece88346ac5e8d0490 Mon Sep 17 00:00:00 2001 From: Andy Stewart Date: Fri, 13 Dec 2019 23:41:32 +0800 Subject: [PATCH] Move eaf-capture-commands and eaf-capture-keys code to eaf-mode-map* define place. --- eaf.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/eaf.el b/eaf.el index 5ce9b6f..3c06c17 100644 --- a/eaf.el +++ b/eaf.el @@ -98,6 +98,10 @@ (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) + (dolist (cmd eaf-capture-commands) + (define-key map (vector 'remap cmd) 'eaf-send-key)) + (dolist (single-key eaf-capture-keys) + (define-key map (kbd single-key) 'eaf-send-key)) map) "Keymap for default bindings available in all apps.") @@ -533,10 +537,6 @@ to edit EAF keybindings!" fun))) "Configure the `eaf-mode-map' from KEYBINDING, one of the eaf-*-keybinding variables." (setq eaf-mode-map (let ((map (make-sparse-keymap))) - (dolist (cmd eaf-capture-commands) - (define-key map (vector 'remap cmd) 'eaf-send-key)) - (dolist (single-key eaf-capture-keys) - (define-key map (kbd single-key) 'eaf-send-key)) (set-keymap-parent map eaf-mode-map*) (cl-loop for (key . fun) in keybinding do (if (symbolp fun)