Ensure eaf buffer map has precedence

master
Clemens Radermacher 6 years ago
parent ed85316f03
commit c4c873cd51
No known key found for this signature in database
GPG Key ID: ADEDCAC15E317EA0
  1. 8
      eaf.el

@ -110,7 +110,8 @@ Don't modify this map directly. To bind keys for all apps use
(defun eaf-describe-bindings ()
"Like `describe-bindings' for eaf buffers."
(interactive)
(let ((eaf-mode-map (current-local-map)))
(let ((emulation-mode-map-alists nil)
(eaf-mode-map (current-local-map)))
(call-interactively 'describe-mode)))
(defvar-local eaf--buffer-id nil
@ -448,7 +449,10 @@ Please ONLY use `eaf-bind-key' to edit EAF keybindings!"
(let* ((file-or-command-name (substring input-content (string-match "[^/]*/?$" input-content)))
(eaf-buffer (generate-new-buffer (truncate-string-to-width file-or-command-name eaf-title-length))))
(with-current-buffer eaf-buffer
(eaf-mode))
(eaf-mode)
(make-local-variable 'emulation-mode-map-alists)
(push (list (cons t eaf-mode-map))
emulation-mode-map-alists))
eaf-buffer))
(defun eaf-identify-key-in-app (key-command app-name)

Loading…
Cancel
Save