mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(server-kill-buffer): Prevent infinite recursion.

Browse source 
(server-kill-buffer-running): New variable.
This commit is contained in:
Richard M. Stallman 1997-05-31 00:31:40 +00:00
parent 7b30f6cfdf
commit fb873cfcb6
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/server.el
View file

@ -385,11 +385,18 @@ or nil. KILLED is t if we killed the BUFFER (because it was a temp file)."
(add-hook 'kill-emacs-query-functions 'server-kill-emacs-query-function)
(defvar server-kill-buffer-running nil
"Non-nil while `server-kill-buffer' is running.")
;; When a buffer is killed, inform the clients.
(add-hook 'kill-buffer-hook 'server-kill-buffer)
(defun server-kill-buffer ()
(when server-process
(server-buffer-done (current-buffer) t)))
;; Prevent infinite recursion if user has made server-done-hook
;; call kill-buffer.
(or server-kill-buffer-running
(let ((server-kill-buffer-running 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.