diff options
| author | Adrián Medraño Calvo <adrian@medranocalvo.com> | 2018-03-05T00·00+0000 |
|---|---|---|
| committer | Chris Feng <chris.w.feng@gmail.com> | 2018-03-05T16·04+0800 |
| commit | dd0f10775a1893abe3b5c753e9db12d1397c2f6b (patch) | |
| tree | e4f68078d0466ba8190b19f37f6104ac4e954943 | |
| parent | 57328b439fdc367519e3ce9f7c6ef2d3a4934cbc (diff) | |
Support disabling default `exwm-mode-map' bindings
* exwm-input.el (exwm-input--on-KeyPress-line-mode): Use `lookup-key' to check whether a the event is defined in the `exwm-mode-map' keymap.
| -rw-r--r-- | exwm-core.el | 2 | ||||
| -rw-r--r-- | exwm-input.el | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/exwm-core.el b/exwm-core.el index 0f48de2a109a..7fd3a61211be 100644 --- a/exwm-core.el +++ b/exwm-core.el @@ -190,7 +190,7 @@ least SECS seconds later." (active-minibuffer-window) (memq last-input-event exwm-input--global-prefix-keys) (memq last-input-event exwm-input-prefix-keys) - (assq last-input-event (cdr exwm-mode-map)) + (lookup-key exwm-mode-map (vector last-input-event)) (gethash last-input-event exwm-input--simulation-keys)) (set-transient-map (make-composed-keymap (list exwm-mode-map global-map))) diff --git a/exwm-input.el b/exwm-input.el index 379442600fd2..ee44624508cf 100644 --- a/exwm-input.el +++ b/exwm-input.el @@ -566,7 +566,7 @@ instead." ;; (memq event exwm-input--global-prefix-keys) (memq event exwm-input-prefix-keys) - (assq event (cdr exwm-mode-map)) + (lookup-key exwm-mode-map (vector event)) (gethash event exwm-input--simulation-keys))) (setq mode xcb:Allow:AsyncKeyboard) (exwm-input--cache-event event)) |