mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(before-save-hook): Add.

Browse source 
(basic-save-buffer): Use before-save-hook.
This commit is contained in:
Simon Josefsson 2004-01-05 18:17:41 +00:00
parent 61e938eb8b
commit 3c3b81d190
2 changed files with 14 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

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

10
lisp/files.el
View file

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