about summary refs log tree commit diff
diff options
context:
space:
mode:
authorAdrián Medraño Calvo <adrian@medranocalvo.com>2018-03-05T00·00+0000
committerChris Feng <chris.w.feng@gmail.com>2018-03-05T16·04+0800
commitdd0f10775a1893abe3b5c753e9db12d1397c2f6b (patch)
treee4f68078d0466ba8190b19f37f6104ac4e954943
parent57328b439fdc367519e3ce9f7c6ef2d3a4934cbc (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.el2
-rw-r--r--exwm-input.el2
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))