mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-08 20:58:58 +00:00
Code Issues Releases Activity

(server-done-hook): New hook.

Browse Source 
(server-buffer-done): Run it.
This commit is contained in:
Richard M. Stallman 1994-05-20 23:48:12 +00:00
parent ff7dc6f671
commit f9b3ef8860
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/server.el
View File

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