(server-switch-buffer): Choose a window on a visible

frame.

diff --git a/lisp/server.el b/lisp/server.el
index e4a451c364a9e661544ebe41e260dfe745a3b4ab..1e7d51692cb9c83cb3fceee8da1d261d7161cc93 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -508,7 +508,7 @@ Arg NEXT-BUFFER is a suggestion; if it is a live buffer, use it."
       (select-window (next-window nil 'nomini 0)))
   ;; Move to a non-dedicated window, if we have one.
   (select-window (some-window (lambda (w) (not (window-dedicated-p w)))
-                             'nomini 0 (selected-window)))
+                             'nomini 'visible (selected-window)))
   (set-window-dedicated-p (selected-window) nil)
   (if next-buffer
       (if (and (bufferp next-buffer)