From bb0c5f4c6b05e030e6afc29b08594d4141780223 Mon Sep 17 00:00:00 2001 From: Chris Feng Date: Sun, 13 Nov 2016 19:23:10 +0800 Subject: Grab global prefix keys with num-lock mask set. * exwm-input.el (exwm-input--update-global-prefix-keys): Grab global prefix keys with num-lock mask set, or those keys won't be activated when num-lock is enabled. --- exwm-input.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'exwm-input.el') diff --git a/exwm-input.el b/exwm-input.el index a2f478068e6f..9e98c62e12c7 100644 --- a/exwm-input.el +++ b/exwm-input.el @@ -380,7 +380,14 @@ This value should always be overwritten.") (slot-value grab-key 'key) keycode) (when (or (= 0 keycode) (xcb:+request-checked+request-check exwm--connection - grab-key)) + grab-key) + ;; Also grab this key with num-lock mask set. + (when (/= 0 xcb:keysyms:num-lock-mask) + (setf (slot-value grab-key 'modifiers) + (logior (cdr keysym) + xcb:keysyms:num-lock-mask)) + (xcb:+request-checked+request-check exwm--connection + grab-key))) (user-error "[EXWM] Failed to grab key: %s" (single-key-description k)))))))))) -- cgit 1.4.1