(server-buffer-done): Run it.
(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")
(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))))