mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-16 17:19:41 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Gerd Moellmann 2001-09-07 11:35:49 +00:00
parent 2baa325276
commit 35f01a9505
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/server.el
View File

@ -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)