Mercurial > emacs
changeset 17801:49d32f8e9f71
(server-kill-buffer): Act only when there is a server process.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 14 May 1997 18:42:57 +0000 |
| parents | ebc3066cd381 |
| children | 77d8356a7eed |
| files | lisp/server.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/server.el Wed May 14 17:38:51 1997 +0000 +++ b/lisp/server.el Wed May 14 18:42:57 1997 +0000 @@ -387,7 +387,8 @@ ;; 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.