[elpa] externals/exwm f00b5ca655: Fix on-Notify (#71)

[ELPA Syncer]

branch: externals/exwm
commit f00b5ca655a0471a10d21a3e75b1a442a8d28941
Author: Manuel Giraud <manuel@ledu-giraud.fr>
Commit: GitHub <noreply@github.com>

    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)