emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[elpa] externals/exwm 0d1a323 1/2: Fix EXWM buffers not being hidden on


From: Chris Feng
Subject: [elpa] externals/exwm 0d1a323 1/2: Fix EXWM buffers not being hidden on workspace switch
Date: Fri, 2 Mar 2018 12:09:33 -0500 (EST)

branch: externals/exwm
commit 0d1a32312409a6196724d9a69035ea9f7137ed24
Author: Johan Johansson <address@hidden>
Commit: Chris Feng <address@hidden>

    Fix EXWM buffers not being hidden on workspace switch
    
    * exwm-workspace.el (exwm-workspace-switch, exwm-workspace-move-window):
    Use `equal' to compare RandR output names.
---
 exwm-workspace.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/exwm-workspace.el b/exwm-workspace.el
index a0a8d0d..b423b26 100644
--- a/exwm-workspace.el
+++ b/exwm-workspace.el
@@ -536,7 +536,7 @@ for internal use only."
         (cond
          ((not active-old)
           (exwm-workspace--set-active frame t))
-         ((eq output-old output-new)
+         ((equal output-old output-new)
           (exwm-workspace--set-active old-frame nil)
           (exwm-workspace--set-active frame t)
           (setq workspaces-to-hide (list old-frame)))
@@ -544,8 +544,8 @@ for internal use only."
          (t
           (dolist (w exwm-workspace--list)
             (when (and (exwm-workspace--active-p w)
-                       (eq output-new
-                           (frame-parameter w 'exwm-randr-output)))
+                       (equal output-new
+                              (frame-parameter w 'exwm-randr-output)))
               (exwm-workspace--set-active w nil)
               (setq workspaces-to-hide (append workspaces-to-hide (list w)))))
           (exwm-workspace--set-active frame t)))
@@ -756,8 +756,8 @@ INDEX must not exceed the current number of workspaces."
           ;; Floating.
           (setq container (frame-parameter exwm--floating-frame
                                            'exwm-container))
-          (unless (eq (frame-parameter old-frame 'exwm-randr-output)
-                      (frame-parameter frame 'exwm-randr-output))
+          (unless (equal (frame-parameter old-frame 'exwm-randr-output)
+                         (frame-parameter frame 'exwm-randr-output))
             (with-slots (x y)
                 (xcb:+request-unchecked+reply exwm--connection
                     (make-instance 'xcb:GetGeometry



reply via email to

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