[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