mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(server-kill-buffer): Act only when there is a server process.

Browse source
This commit is contained in:
Richard M. Stallman 1997-05-14 18:42:57 +00:00
parent 0f39575982
commit 1da54e584e
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/server.el
View file

@ -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.