Mirrors/exwm
2
0
Fork 0
mirror of https://github.com/ch11ng/exwm.git synced 2025-04-13 22:54:02 +02:00
Code Issues Projects Releases Packages Wiki Activity

eq -> equal when comparing exwm-randr-output frame parameters

Browse source
This commit is contained in:
bryal 2018-03-02 11:30:11 +01:00
parent ad90af19a6
commit 6aa5ce40f0
1 changed files with 4 additions and 4 deletions

8
exwm-workspace.el
View file

@ -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