diff lisp/server.el @ 71320:59c8b05c2ce4

* server.el (server-edit): No-op if no server buffers exist.

--- a/lisp/server.el	Sun Jun 11 18:18:24 2006 +0000
+++ b/lisp/server.el	Sun Jun 11 18:59:31 2006 +0000
@@ -576,11 +576,13 @@
 If invoked with a prefix argument, or if there is no server process running,
 starts server process and that is all.  Invoked by \\[server-edit]."
   (interactive "P")
-  (if (or arg
-	  (not server-process)
-	  (memq (process-status server-process) '(signal exit)))
-      (server-mode 1)
-    (apply 'server-switch-buffer (server-done))))
+  (cond
+   ((or arg
+	(not server-process)
+	(memq (process-status server-process) '(signal exit)))
+    (server-mode 1))
+   (server-clients (apply 'server-switch-buffer (server-done)))
+   (t (message "No server editing buffers exist"))))
 
 (defun server-switch-buffer (&optional next-buffer killed-one)
   "Switch to another buffer, preferably one that has a client.