From 1cc852cc966516ba2daae60c69a17e099d70d7c3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 28 Aug 1995 15:15:28 +0000 Subject: [PATCH] (basic-save-buffer): Doc fix. (after-save-hook): Add defvar. --- lisp/files.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/files.el b/lisp/files.el index 8cb1a66183a..64f33c58e2f 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1691,8 +1691,12 @@ the last real save, but optional arg FORCE non-nil means delete anyway." (file-error nil)) (set-buffer-auto-saved)))) +(defvar after-save-hook nil + "Normal hook that is run after a buffer is saved to its file.") + (defun basic-save-buffer () - "Save the current buffer in its visited file, if it has been modified." + "Save the current buffer in its visited file, if it has been modified. +After saving the buffer, run `after-save-hook'." (interactive) (save-excursion ;; In an indirect buffer, save its base buffer instead. -- 2.39.2