From f9b3ef8860a5ca03eb9d2e1739ef9456e9670a66 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 20 May 1994 23:48:12 +0000 Subject: [PATCH] (server-done-hook): New hook. (server-buffer-done): Run it. --- lisp/server.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/server.el b/lisp/server.el index 794f95e9039..1d175bfa7de 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -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)))) -- 2.39.5