Better identify eaf key

master
Matthew 6 years ago
parent f6e95fbbd2
commit 5d87ba8017
  1. 8
      eaf.el

@ -7,7 +7,7 @@
;; Copyright (C) 2018, Andy Stewart, all rights reserved.
;; Created: 2018-06-15 14:10:12
;; Version: 0.3
;; Last-Updated: Sat Nov 30 01:44:46 2019 (-0500)
;; Last-Updated: Sat Nov 30 02:12:38 2019 (-0500)
;; By: Mingde (Matthew) Zeng
;; URL: http://www.emacswiki.org/emacs/download/eaf.el
;; Keywords:
@ -519,9 +519,7 @@ Please ONLY use `eaf-bind-key' to edit EAF keybindings!"
((or (equal key-command "self-insert-command") ; Just send event when user insert single character.
(equal key-command "completion-select-if-within-overlay")) ; Don't send event 'M' if user press Ctrl + M.
(eaf-call "send_key" buffer-id key-desc))
((and (eaf-identify-key-in-app key-command buffer-app-name)
(or (equal 1 (string-width (this-command-keys)))
(string-match "^[CMSs]-.*" key-desc)))
((eaf-identify-key-in-app key-command buffer-app-name)
(cond ((equal buffer-app-name "browser")
(let ((function-name-value (cdr (assoc key-desc eaf-browser-keybinding))))
(if function-name-value
@ -581,7 +579,7 @@ Please ONLY use `eaf-bind-key' to edit EAF keybindings!"
"Call function on the Python side if matched key in the keybinding.
Otherwise call send_key message to Python side."
(let ((function-name-value (cdr (assoc key-desc eaf-camera-keybinding))))
(let ((function-name-value (cdr (assoc key-desc keybinding))))
(if function-name-value
(eaf-call "execute_function" buffer-id function-name-value)
(eaf-call "send_key" buffer-id key-desc))))

Loading…
Cancel
Save