mirror of
https://github.com/ch11ng/exwm.git
synced 2024-11-30 14:38:00 +01:00
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.
This commit is contained in:
parent
d0c2ca75f8
commit
bb0c5f4c6b
1 changed files with 8 additions and 1 deletions
|
@ -380,7 +380,14 @@ This value should always be overwritten.")
|
||||||
(slot-value grab-key 'key) keycode)
|
(slot-value grab-key 'key) keycode)
|
||||||
(when (or (= 0 keycode)
|
(when (or (= 0 keycode)
|
||||||
(xcb:+request-checked+request-check exwm--connection
|
(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"
|
(user-error "[EXWM] Failed to grab key: %s"
|
||||||
(single-key-description k))))))))))
|
(single-key-description k))))))))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue