Mirrors/exwm
2
0
Fork 0
mirror of https://github.com/ch11ng/exwm.git synced 2024-11-23 11:47:58 +01:00
Code Issues Projects Releases Packages Wiki Activity

Detect unavailable keys properly. Fixes #592.

Browse source
This commit is contained in:
Sergey Trofimov 2023-11-25 15:20:36 +01:00
parent 56db521a3e
commit 83a5f719d2
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
exwm-input.el
View file

@ -514,7 +514,7 @@ ARGS are additional arguments to CALLBACK."
keysyms keycode alt-modifier)
(dolist (k exwm-input--global-prefix-keys)
(setq keysyms (xcb:keysyms:event->keysyms exwm--connection k))
(if (not keysyms)
(if (or (not keysyms) (= 0 (caar keysyms)))
(warn "Key unavailable: %s" (key-description (vector k)))
(setq keycode (xcb:keysyms:keysym->keycode exwm--connection
(caar keysyms)))
@ -886,7 +886,7 @@ button event."
"Fake a key event equivalent to Emacs event EVENT."
(let* ((keysyms (xcb:keysyms:event->keysyms exwm--connection event))
keycode id)
(when (= 0 (caar keysyms))
(when (or (not keysyms) (= 0 (caar keysyms)))
(user-error "[EXWM] Invalid key: %s" (single-key-description event)))
(setq keycode (xcb:keysyms:keysym->keycode exwm--connection
(caar keysyms)))