mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(server-switch-buffer): Say when no server buffers remain.

Browse Source
This commit is contained in:
Richard M. Stallman 2002-10-29 18:17:46 +00:00
parent 019f8c1e2e
commit 90ee5627ad
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/server.el
View File

@ -534,7 +534,8 @@ Arg NEXT-BUFFER is a suggestion; if it is a live buffer, use it."
(if server-clients
(server-switch-buffer (nth 1 (car server-clients)) killed-one)
(unless (or killed-one (window-dedicated-p (selected-window)))
(switch-to-buffer (other-buffer))))
(switch-to-buffer (other-buffer))
(message "No server buffers remain to edit")))
(if (not (buffer-name next-buffer))
;; If NEXT-BUFFER is a dead buffer, remove the server records for it
;; and try the next surviving server buffer.