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

diff --git a/lisp/server.el b/lisp/server.el
index 857ffa6b9f099077de8a26f10e8d08dabc6d8114..4551f40c7376d04ad8c6bb6b8cbc0531a4af840a 100644 (file)
--- 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."
       (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.