[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/exwm 576a676 62/64: Fix with-slots

From: Chris Feng
Subject: [elpa] externals/exwm 576a676 62/64: Fix with-slots
Date: Thu, 17 Sep 2015 23:18:13 +0000

branch: externals/exwm
commit 576a676f1f0895bd473d54c2713ee9e2423023e6
Author: Chris Feng <address@hidden>
Commit: Chris Feng <address@hidden>

    Fix with-slots
    * exwm-randr.el (exwm-randr--refresh): Could not set the name slot in
      xcb:randr:GetOutputInfo~reply, turn to another variable.
 exwm-randr.el |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/exwm-randr.el b/exwm-randr.el
index d14e097..fc8477d 100644
--- a/exwm-randr.el
+++ b/exwm-randr.el
@@ -48,7 +48,7 @@
 (defun exwm-randr--refresh ()
   "Refresh workspaces according to the updated RandR info."
-  (let (geometry output-plist default-geometry workareas viewports)
+  (let (output-name geometry output-plist default-geometry workareas viewports)
     ;; Query all outputs
     (with-slots (config-timestamp outputs)
         (xcb:+request-unchecked+reply exwm--connection
@@ -60,11 +60,11 @@
                 (make-instance 'xcb:randr:GetOutputInfo
                                :output output
                                :config-timestamp config-timestamp))
-          (setq name                    ;UTF-8 encoded
+          (setf output-name             ;UTF-8 encoded
                 (decode-coding-string (apply #'unibyte-string name) 'utf-8))
           (if (or (/= connection xcb:randr:Connection:Connected)
                   (= 0 crtc))           ;FIXME
-              (plist-put output-plist name nil)
+              (plist-put output-plist output-name nil)
             (with-slots (x y width height)
                 (xcb:+request-unchecked+reply exwm--connection
                     (make-instance 'xcb:randr:GetCrtcInfo
@@ -73,7 +73,7 @@
               (setq geometry (make-instance 'xcb:RECTANGLE
                                             :x x :y y
                                             :width width :height height)
-                    output-plist (plist-put output-plist name geometry))
+                    output-plist (plist-put output-plist output-name geometry))
               (unless default-geometry ;assume the first output as primary
                 (setq default-geometry geometry)))))))
     (cl-assert (<= 2 (length output-plist)))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]