# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 962615622 0
# Node ID 531536b6475b647a46b30deda140fb0f85e96e8f
# Parent  29a64f84d736e97d71b806b54624a330cd2a81cf
(server-switch-buffer): Use some-window instead of
cycling through windows with next-window.

diff -r 29a64f84d736 -r 531536b6475b lisp/server.el
--- a/lisp/server.el	Mon Jul 03 09:13:23 2000 +0000
+++ b/lisp/server.el	Mon Jul 03 09:13:42 2000 +0000
@@ -477,10 +477,8 @@
   (if (window-minibuffer-p (selected-window))
       (select-window (next-window nil 'nomini 0)))
   ;; Move to a non-dedicated window, if we have one.
-  (let ((last-window (previous-window nil 'nomini 0)))
-    (while (and (window-dedicated-p (selected-window))
-		(not (eq last-window (selected-window))))
-      (select-window (next-window nil 'nomini 0))))
+  (select-window (some-window (lambda (w) (not (window-dedicated-p w)))
+			      'nomini 0 (selected-window)))
   (set-window-dedicated-p (selected-window) nil)
   (if next-buffer
       (if (and (bufferp next-buffer)