emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/exwm 01b0b54: Fix single workspace invisible problem wi


From: Chris Feng
Subject: [elpa] externals/exwm 01b0b54: Fix single workspace invisible problem with Xephyr
Date: Sun, 21 Oct 2018 09:33:39 -0400 (EDT)

branch: externals/exwm
commit 01b0b54c04d043c47184019c75cc668da2427aa8
Author: Chris Feng <address@hidden>
Commit: Chris Feng <address@hidden>

    Fix single workspace invisible problem with Xephyr
    
    * exwm-workspace.el (exwm-workspace-switch): On startup EXWM switches
    to workspace 0 by force so the rest code can not assume the frames
    before and after a switch different.
---
 exwm-workspace.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/exwm-workspace.el b/exwm-workspace.el
index 8a59c36..383bf53 100644
--- a/exwm-workspace.el
+++ b/exwm-workspace.el
@@ -553,8 +553,9 @@ for internal use only."
           (exwm-workspace--set-active frame t))
          ((equal output-old output-new)
           (exwm-workspace--set-active frame t)
-          (exwm-workspace--set-active old-frame nil)
-          (setq workspaces-to-hide (list old-frame)))
+          (unless (eq frame old-frame)
+            (exwm-workspace--set-active old-frame nil)
+            (setq workspaces-to-hide (list old-frame))))
          (active-new)
          (t
           (dolist (w exwm-workspace--list)
@@ -626,7 +627,8 @@ for internal use only."
                              :dst-x (/ (frame-pixel-width frame) 2)
                              :dst-y (/ (frame-pixel-height frame) 2)))
           (xcb:flush exwm--connection))))
-    (when (frame-live-p old-frame)
+    (when (and (not (eq frame old-frame))
+               (frame-live-p old-frame))
       (with-selected-frame old-frame
         (run-hooks 'focus-out-hook)))
     (run-hooks 'focus-in-hook)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]