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

(server-kill-buffer-running): New variable.

diff --git a/lisp/server.el b/lisp/server.el
index 3fb4b039e8feb0f43bad4793d794a490ea618c2f..49fd8172c40b58af5743afa2a2134c4b390fa88a 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -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)))))
 \f
 (defun server-edit (&optional arg)
   "Switch to next server editing buffer; say \"Done\" for current buffer.