Mercurial > emacs
changeset 8554:0b44462dbbc8
(after-find-file): New arg from-revert-buffer.
(revert-buffer): Pass t for that.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 17 Aug 1994 21:42:40 +0000 |
| parents | 090fb6dea9dd |
| children | f1b1537ed3f6 |
| files | lisp/files.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Wed Aug 17 20:30:22 1994 +0000 +++ b/lisp/files.el Wed Aug 17 21:42:40 1994 +0000 @@ -740,13 +740,14 @@ (after-find-file error (not nowarn)))) buf))) -(defun after-find-file (&optional error warn noauto) +(defun after-find-file (&optional error warn noauto from-revert-buffer) "Called after finding a file and by the default revert function. Sets buffer mode, parses local variables. Optional args ERROR, WARN, and NOAUTO: ERROR non-nil means there was an error in reading the file. WARN non-nil means warn if there exists an auto-save file more recent than the visited file. NOAUTO means don't mess with auto-save mode. +FROM-REVERT-BUFFER means this call was from `revert-buffer'. Finishes by calling the functions in `find-file-hooks'." (setq buffer-read-only (not (file-writable-p buffer-file-name))) (if noninteractive @@ -1912,7 +1913,7 @@ (insert-file-contents file-name (not auto-save-p) nil nil t))) (goto-char (min opoint (point-max))) - (after-find-file nil nil t) + (after-find-file nil nil t t) (run-hooks 'after-revert-hook) t)))))