[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/exwm dd0f107: Support disabling default `exwm-mode-map'
From: |
Chris Feng |
Subject: |
[elpa] externals/exwm dd0f107: Support disabling default `exwm-mode-map' bindings |
Date: |
Mon, 5 Mar 2018 11:10:26 -0500 (EST) |
branch: externals/exwm
commit dd0f10775a1893abe3b5c753e9db12d1397c2f6b
Author: Adrián Medraño Calvo <address@hidden>
Commit: Chris Feng <address@hidden>
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.
---
exwm-core.el | 2 +-
exwm-input.el | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/exwm-core.el b/exwm-core.el
index 0f48de2..7fd3a61 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 3794426..ee44624 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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/exwm dd0f107: Support disabling default `exwm-mode-map' bindings,
Chris Feng <=