diff options
| author | Johan Johansson <96.bryal@gmail.com> | 2018-03-02T16·55+0100 |
|---|---|---|
| committer | Chris Feng <chris.w.feng@gmail.com> | 2018-03-02T16·55+0800 |
| commit | 0d1a32312409a6196724d9a69035ea9f7137ed24 (patch) | |
| tree | 6d738be0efbc82472a35cc514a231c32c16807ce | |
| parent | dbc06b50ff7f6cac5279b38be8f58706a0e00bb0 (diff) | |
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.
| -rw-r--r-- | exwm-workspace.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/exwm-workspace.el b/exwm-workspace.el index a0a8d0db5bf8..b423b26fe1b8 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 |