Mirrors/exwm2
2
0
Fork 0
mirror of https://github.com/emacs-exwm/exwm.git synced 2024-11-27 14:57:59 +01:00
Code Issues Projects Releases Packages Wiki Activity

Fix EXWM buffers not being hidden on workspace switch

Browse source 
* exwm-workspace.el (exwm-workspace-switch, exwm-workspace-move-window):
Use `equal' to compare RandR output names.
This commit is contained in:
Johan Johansson 2018-03-02 17:55:36 +01:00 committed by Chris Feng
parent dbc06b50ff
commit 0d1a323124
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
exwm-workspace.el
View file

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