# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 999862549 0
# Node ID 11c0c672f2e27a36a93712f4a3c5b96b8375dcac
# Parent  286d91f8ebe35de3444c5abe0975e02c981318e7
(server-switch-buffer): Use get-window-with-predicate.

diff -r 286d91f8ebe3 -r 11c0c672f2e2 lisp/server.el
--- a/lisp/server.el	Fri Sep 07 11:35:09 2001 +0000
+++ b/lisp/server.el	Fri Sep 07 11:35:49 2001 +0000
@@ -521,8 +521,9 @@
       (select-window (next-window nil 'nomini 0)))
   ;; Move to a non-dedicated window, if we have one.
   (when (window-dedicated-p (selected-window))
-    (select-window (some-window (lambda (w) (not (window-dedicated-p w)))
-				'nomini 'visible (selected-window))))
+    (select-window (get-window-with-predicate
+		    (lambda (w) (not (window-dedicated-p w)))
+		    'nomini 'visible (selected-window))))
   (set-window-dedicated-p (selected-window) nil)
   (if next-buffer
       (if (and (bufferp next-buffer)