aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman2002-10-29 18:17:46 +0000
committerRichard M. Stallman2002-10-29 18:17:46 +0000
commit90ee5627ad7ea73128bc50c2a79bd576e0246ef2 (patch)
tree530b4c53d7e2be525af3ca87a8fa5a92a3910882
parent019f8c1e2e5f6addd40d508e2bfcef0dc8245307 (diff)
downloademacs-90ee5627ad7ea73128bc50c2a79bd576e0246ef2.tar.gz
emacs-90ee5627ad7ea73128bc50c2a79bd576e0246ef2.zip
(server-switch-buffer): Say when no server buffers remain.
-rw-r--r--lisp/server.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/server.el b/lisp/server.el
index 857ffa6b9f0..4551f40c737 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -534,7 +534,8 @@ Arg NEXT-BUFFER is a suggestion; if it is a live buffer, use it."
534 (if server-clients 534 (if server-clients
535 (server-switch-buffer (nth 1 (car server-clients)) killed-one) 535 (server-switch-buffer (nth 1 (car server-clients)) killed-one)
536 (unless (or killed-one (window-dedicated-p (selected-window))) 536 (unless (or killed-one (window-dedicated-p (selected-window)))
537 (switch-to-buffer (other-buffer)))) 537 (switch-to-buffer (other-buffer))
538 (message "No server buffers remain to edit")))
538 (if (not (buffer-name next-buffer)) 539 (if (not (buffer-name next-buffer))
539 ;; If NEXT-BUFFER is a dead buffer, remove the server records for it 540 ;; If NEXT-BUFFER is a dead buffer, remove the server records for it
540 ;; and try the next surviving server buffer. 541 ;; and try the next surviving server buffer.