(before-save-hook): Add.

(basic-save-buffer): Use before-save-hook.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9a07b135eef5933d916e65fd36f8e5ca5d6e7eb6..7276ccc1bf9c21480e7aa90552602eac2412cac3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-12-31  Simon Josefsson  <jas@extundo.com>
+
+       * files.el (before-save-hook): Add.
+       (basic-save-buffer): Use before-save-hook.
+
 2004-01-05  Richard M. Stallman  <rms@gnu.org>
 
        * finder.el (finder-commentary): Call delete-other-windows.

diff --git a/lisp/files.el b/lisp/files.el
index ec58906e4853a38403ad062c78db1abf1e16df3e..e74ef0bcbc1f191cbfa20291e0434b2499ac9938 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2990,6 +2990,12 @@ the last real save, but optional arg FORCE non-nil means delete anyway."
 (defvar auto-save-hook nil
   "Normal hook run just before auto-saving.")
 
+(defcustom before-save-hook nil
+  "Normal hook that is run before a buffer is saved to its file."
+  :options '(copyright-update)
+  :type 'hook
+  :group 'files)
+
 (defcustom after-save-hook nil
   "Normal hook that is run after a buffer is saved to its file."
   :options '(executable-make-buffer-file-executable-if-script-p)
@@ -3012,7 +3018,8 @@ in such cases.")
 The hooks `write-contents-functions' and `write-file-functions' get a chance
 to do the job of saving; if they do not, then the buffer is saved in
 the visited file file in the usual way.
-After saving the buffer, this function runs `after-save-hook'."
+Before and after saving the buffer, this function runs
+`before-save-hook' and `after-save-hook', respectively."
   (interactive)
   (save-current-buffer
     ;; In an indirect buffer, save its base buffer instead.
@@ -3068,6 +3075,7 @@ After saving the buffer, this function runs `after-save-hook'."
                     (insert ?\n))))
            ;; Support VC version backups.
            (vc-before-save)
+           (run-hooks 'before-save-hook)
            (or (run-hook-with-args-until-success 'write-contents-functions)
                (run-hook-with-args-until-success 'local-write-file-hooks)
                (run-hook-with-args-until-success 'write-file-functions)