diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-05-14 18:42:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-05-14 18:42:57 +0000 |
| commit | acf1e5391c0e1dc03f1b30c73ff5948cb95c7647 (patch) | |
| tree | 1d9d02bbd11b4706a569ec239405ac60a8be267a /lisp/server.el | |
| parent | 46808b07fee9ba50a7d2cf0047caffb1b4286d7a (diff) | |
| download | emacs-acf1e5391c0e1dc03f1b30c73ff5948cb95c7647.tar.gz | |
(server-kill-buffer): Act only when there is a server process.
Diffstat (limited to 'lisp/server.el')
| -rw-r--r-- | lisp/server.el | 3 |
1 files changed, 2 insertions, 1 deletions
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. |