From 6aa5ce40f0a297b45328573c4f5064fb4bde154e Mon Sep 17 00:00:00 2001
From: bryal <96.bryal@gmail.com>
Date: Fri, 2 Mar 2018 11:30:11 +0100
Subject: [PATCH] eq -> equal when comparing exwm-randr-output frame parameters
---
exwm-workspace.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/exwm-workspace.el b/exwm-workspace.el
index a0a8d0d..54803e2 100644
--- a/exwm-workspace.el
+++ b/exwm-workspace.el
@@ -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