Mirrors/exwm
2
0
Fork 0
mirror of https://github.com/ch11ng/exwm.git synced 2025-04-04 18:19:40 +02:00
Code Issues Projects Releases Packages Wiki Activity

Merge 83a5f719d2 into 798dc60a9b

Browse source
This commit is contained in:
Sergey Trofimov 2024-01-08 17:05:40 +01:00 • committed by GitHub
commit c3fd0b7619
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions

4
exwm-input.el
View file

@ -522,7 +522,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)))
@ -894,7 +894,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)))