branch: externals/exwm
commit f00b5ca655a0471a10d21a3e75b1a442a8d28941
Author: Manuel Giraud <[email protected]>
Commit: GitHub <[email protected]>
Fix on-Notify (#71)
`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.
---
exwm-randr.el | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/exwm-randr.el b/exwm-randr.el
index 386b3c90db..ad6cec50fb 100644
--- a/exwm-randr.el
+++ b/exwm-randr.el
@@ -305,11 +305,10 @@ Refresh when any CRTC/output changes."
notify)
(xcb:unmarshal evt data)
(with-slots (subCode u) evt
- (cl-case subCode
- (xcb:randr:Notify:CrtcChange
- (setq notify (slot-value u 'cc)))
- (xcb:randr:Notify:OutputChange
- (setq notify (slot-value u 'oc))))
+ (cond ((= subCode xcb:randr:Notify:CrtcChange)
+ (setq notify (slot-value u 'cc)))
+ ((= subCode xcb:randr:Notify:OutputChange)
+ (setq notify (slot-value u 'oc))))
(when notify
(with-slots (timestamp) notify
(when (> timestamp exwm-randr--last-timestamp)
