From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 7 Sep 2001 11:35:49 +0000 (+0000)
Subject: (server-switch-buffer): Use get-window-with-predicate.
X-Git-Tag: emacs-pretest-21.0.106~204
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=35f01a95058b6399e6b2c68ec79cf5168d131b54;p=emacs.git

(server-switch-buffer): Use get-window-with-predicate.
---

diff --git a/lisp/server.el b/lisp/server.el
index 5ff76344820..8683f02d139 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -521,8 +521,9 @@ 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.
   (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)