Commit f9b3ef88 authored by Richard M. Stallman's avatar Richard M. Stallman

(server-done-hook): New hook.

(server-buffer-done): Run it.
parent ff7dc6f6
......@@ -82,6 +82,9 @@
(defvar server-switch-hook nil
"*List of hooks to call when switching to a buffer for the Emacs server.")
(defvar server-done-hook nil
"*List of hooks to call when done editing a buffer for the Emacs server.")
(defvar server-process nil
"the current server process")
......@@ -250,7 +253,8 @@ as a suggestion for what to select next."
(progn
(save-excursion
(set-buffer buffer)
(setq server-buffer-clients nil))
(setq server-buffer-clients nil)
(run-hooks 'server-done-hook))
(if (server-temp-file-p buffer)
(kill-buffer buffer)
(bury-buffer buffer))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment