Mercurial > emacs
changeset 7597:99a600c67e82
(server-done-hook): New hook.
(server-buffer-done): Run it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 20 May 1994 23:48:12 +0000 |
| parents | 1405fe5b05e0 |
| children | cdde619af40c |
| files | lisp/server.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/server.el Fri May 20 23:17:56 1994 +0000 +++ b/lisp/server.el Fri May 20 23:48:12 1994 +0000 @@ -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 @@ (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))))