From 1da54e584e2784729fde2bce013e087ff0e3738a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 14 May 1997 18:42:57 +0000 Subject: [PATCH] (server-kill-buffer): Act only when there is a server process. --- lisp/server.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/server.el b/lisp/server.el index 8a548fe0aa9..e827e884311 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -387,7 +387,8 @@ or nil. KILLED is t if we killed the BUFFER (because it was a temp file)." ;; When a buffer is killed, inform the clients. (add-hook 'kill-buffer-hook 'server-kill-buffer) (defun server-kill-buffer () - (server-buffer-done (current-buffer) t)) + (when server-process + (server-buffer-done (current-buffer) t))) (defun server-edit (&optional arg) "Switch to next server editing buffer; say \"Done\" for current buffer. -- 2.39.2