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

35f01a95 · Gerd Moellmann · 2baa3252 · 35f01a95
Commit 35f01a95 authored Sep 07, 2001 by Gerd Moellmann
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 2 deletions

lisp/server.el lisp/server.el +3 -2

No files found.
--- 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)