Merge pull request #149 from clemera/allow-to-bind-regular-emacs-commands

Allow to provide regular emacs commands in app keybinding lists
6 years ago · 2815691d30
parent 4d25f90022 748a13476b
commit 2815691d30
1 changed files with 6 additions and 4 deletions
--- a/eaf.el
+++ b/eaf.el
@ -509,10 +509,12 @@ to edit EAF keybindings!" fun)))
            (define-key map (kbd single-key) 'eaf-send-key))
          (set-keymap-parent map eaf-mode-map*)
          (cl-loop for (key . fun) in keybinding
-                   do (let ((dummy (intern
-                                    (format "eaf-%s-%s" app-name fun))))
-                        (eaf-dummy-function dummy fun key)
-                        (define-key map (kbd key) dummy))
+                   do (if (symbolp fun)
+                          (define-key map (kbd key) fun)
+                        (let ((dummy (intern
+                                      (format "eaf-%s-%s" app-name fun))))
+                          (eaf-dummy-function dummy fun key)
+                          (define-key map (kbd key) dummy)))
                   finally return map))))

 (defun eaf-get-app-bindings (app-name)