From 07f385787447037af15ebb57fc143fd3a4a1796c Mon Sep 17 00:00:00 2001 From: Clemens Radermacher Date: Sat, 7 Dec 2019 20:58:04 +0100 Subject: [PATCH 1/2] Allow multi key sequences for app keys --- eaf.el | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/eaf.el b/eaf.el index d83a176..4ea5b0f 100644 --- a/eaf.el +++ b/eaf.el @@ -507,18 +507,15 @@ Please ONLY use `eaf-bind-key' to edit EAF keybindings!" (eaf-call "update_buffer_with_url" "app.orgpreviewer.buffer" (buffer-file-name) "") (message (format "export %s to html" (buffer-file-name)))))))) -(defun eaf-monitor-key-event () +(defun eaf-monitor-key-event (&optional key) "Monitor key events during EAF process." (ignore-errors - (let* ((event last-command-event) - (key (if event - (make-vector 1 event) - (where-is-internal last-command))) + (let* ((key (or key (this-command-keys-vector))) (key-command (symbol-name (key-binding key))) (key-desc (key-description key))) ;; Uncomment for debug. - ;; (message (format "!!!!! %s %s %s %s %s" event key key-command key-desc buffer-app-name)) + ;; (message (format "!!!!! %s %s %s %s %s" key key-command key-desc buffer-app-name)) (cond ;; Fix #51 , don't handle F11 to make emacs toggle frame fullscreen status successfully. From b28f824651cfd9d3d33ff41a180a3c9e5298b3a3 Mon Sep 17 00:00:00 2001 From: Clemens Radermacher Date: Sat, 7 Dec 2019 21:13:41 +0100 Subject: [PATCH 2/2] Remove optional arg for now it belong to other PR --- eaf.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/eaf.el b/eaf.el index 4ea5b0f..239a71c 100644 --- a/eaf.el +++ b/eaf.el @@ -507,10 +507,10 @@ Please ONLY use `eaf-bind-key' to edit EAF keybindings!" (eaf-call "update_buffer_with_url" "app.orgpreviewer.buffer" (buffer-file-name) "") (message (format "export %s to html" (buffer-file-name)))))))) -(defun eaf-monitor-key-event (&optional key) +(defun eaf-monitor-key-event () "Monitor key events during EAF process." (ignore-errors - (let* ((key (or key (this-command-keys-vector))) + (let* ((key (this-command-keys-vector)) (key-command (symbol-name (key-binding key))) (key-desc (key-description key)))