Mirrors/exwm2
2
0
Fork 0
mirror of https://github.com/emacs-exwm/exwm.git synced 2024-11-23 13:07:59 +01:00
Code Issues Projects Releases Packages Wiki Activity

Fix on-Notify (#71)

Browse source 
`cl-case' matches symbols directly but xcb:randr:Notify:* are variables. This likely never worked.

* exwm-randr.el (exwm-randr--on-Notify): replace cond with cl-case.
This commit is contained in:
Manuel Giraud 2024-07-18 12:19:46 +00:00 committed by GitHub
parent 770520cf97
commit f00b5ca655
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
exwm-randr.el
View file

@ -305,11 +305,10 @@ Refresh when any CRTC/output changes."
notify) notify)
(xcb:unmarshal evt data) (xcb:unmarshal evt data)
(with-slots (subCode u) evt (with-slots (subCode u) evt
(cl-case subCode (cond ((= subCode xcb:randr:Notify:CrtcChange)
(xcb:randr:Notify:CrtcChange (setq notify (slot-value u 'cc)))
(setq notify (slot-value u 'cc))) ((= subCode xcb:randr:Notify:OutputChange)
(xcb:randr:Notify:OutputChange (setq notify (slot-value u 'oc))))
(setq notify (slot-value u 'oc))))
(when notify (when notify
(with-slots (timestamp) notify (with-slots (timestamp) notify
(when (> timestamp exwm-randr--last-timestamp) (when (> timestamp exwm-randr--last-timestamp)