From f00b5ca655a0471a10d21a3e75b1a442a8d28941 Mon Sep 17 00:00:00 2001 From: Manuel Giraud Date: Thu, 18 Jul 2024 12:19:46 +0000 Subject: [PATCH] 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 386b3c9..ad6cec5 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)