[elpa] externals/exwm b4517fb 2/3: Force using visible buffers in `other-buffer'

[Chris Feng]

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

    Force using visible buffers in `other-buffer'
    
    * exwm-floating.el (exwm-floating--set-floating):
    * exwm-workspace.el (exwm-workspace-move-window):
    Buffers visible on other frames should be treated as invisible.  One
    side effect is visible buffers on the current frame is also taken into
    account.
---
 exwm-floating.el  |    5 +++--
 exwm-workspace.el |    2 +-
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/exwm-floating.el b/exwm-floating.el
index 6f6cfec..f2cc09b 100644
--- a/exwm-floating.el
+++ b/exwm-floating.el
@@ -82,8 +82,9 @@ context of the corresponding buffer.")
 (defun exwm-floating--set-floating (id)
   "Make window ID floating."
   (let ((window (get-buffer-window (exwm--id->buffer id))))
-    (when window                        ;window in non-floating state
-      (set-window-buffer window (other-buffer)))) ;hide it first
+    (when window
+      ;; Hide the non-floating X window first.
+      (set-window-buffer window (other-buffer nil t))))
   (let* ((original-frame exwm-workspace--current)
          ;; Create new frame
          (frame (with-current-buffer
diff --git a/exwm-workspace.el b/exwm-workspace.el
index a99186c..24a59f9 100644
--- a/exwm-workspace.el
+++ b/exwm-workspace.el
@@ -747,7 +747,7 @@ INDEX must not exceed the current number of workspaces."
                                         exwm--floating-frame)))))
           ;; Move the X window container.
           (set-window-buffer (get-buffer-window (current-buffer) t)
-                             (other-buffer))
+                             (other-buffer nil t))
           (unless (eq frame exwm-workspace--current)
             ;; Clear the 'exwm-selected-window' frame parameter.
             (set-frame-parameter frame 'exwm-selected-window nil))