Mercurial > emacs
changeset 5716:82588f97d478
(revert-buffer): reposition after-revert-hook, and add before-revert-hook.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 01 Feb 1994 01:31:37 +0000 |
| parents | a7f72ce7bac4 |
| children | 24e1180b507d |
| files | lisp/files.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Tue Feb 01 00:16:31 1994 +0000 +++ b/lisp/files.el Tue Feb 01 01:31:37 1994 +0000 @@ -1726,7 +1726,8 @@ If the value of `revert-buffer-function' is non-nil, it is called to do the work. -The normal hook `after-revert-hook' is run at the end of `revert-buffer'." +The default revert function runs the hook `before-revert-hook' at the +beginning and `after-revert-hook' at the end." ;; I admit it's odd to reverse the sense of the prefix argument, but ;; there is a lot of code out there which assumes that the first ;; argument should be t to avoid consulting the auto-save file, and @@ -1751,6 +1752,7 @@ ((or noconfirm (yes-or-no-p (format "Revert buffer from file %s? " file-name))) + (run-hooks 'before-revert-hook) ;; If file was backed up but has changed since, ;; we shd make another backup. (and (not auto-save-p) @@ -1776,8 +1778,8 @@ (insert-file-contents file-name (not auto-save-p)))) (goto-char (min opoint (point-max))) (after-find-file nil nil t) - t)))) - (run-hooks 'after-revert-hook)) + (run-hooks 'after-revert-hook) + t))))) (defun recover-file (file) "Visit file FILE, but get contents from its last auto-save file."