aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorRichard M. Stallman1994-08-17 21:46:05 +0000
committerRichard M. Stallman1994-08-17 21:46:05 +0000
commite0ab8879e184362aa3305fb928fa630b76bc37c5 (patch)
tree3c6ed0c0b3f5ce4f5072fe1928c2227c6c05f8eb /lisp
parent39323a7e46cc32c12327c8870639dfb41ac0284b (diff)
downloademacs-e0ab8879e184362aa3305fb928fa630b76bc37c5.tar.gz
emacs-e0ab8879e184362aa3305fb928fa630b76bc37c5.zip
(after-find-file): New arg renamed to after-find-file-from-revert-buffer.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/files.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/files.el b/lisp/files.el
index 9938c19b548..5e3aa699b11 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -740,14 +740,16 @@ The buffer is not selected, just returned to the caller."
740 (after-find-file error (not nowarn)))) 740 (after-find-file error (not nowarn))))
741 buf))) 741 buf)))
742 742
743(defun after-find-file (&optional error warn noauto from-revert-buffer) 743(defun after-find-file (&optional error warn noauto
744 after-find-file-from-revert-buffer)
744 "Called after finding a file and by the default revert function. 745 "Called after finding a file and by the default revert function.
745Sets buffer mode, parses local variables. 746Sets buffer mode, parses local variables.
746Optional args ERROR, WARN, and NOAUTO: ERROR non-nil means there was an 747Optional args ERROR, WARN, and NOAUTO: ERROR non-nil means there was an
747error in reading the file. WARN non-nil means warn if there 748error in reading the file. WARN non-nil means warn if there
748exists an auto-save file more recent than the visited file. 749exists an auto-save file more recent than the visited file.
749NOAUTO means don't mess with auto-save mode. 750NOAUTO means don't mess with auto-save mode.
750FROM-REVERT-BUFFER means this call was from `revert-buffer'. 751Fourth arg AFTER-FIND-FILE-FROM-REVERT-BUFFER non-nil
752 means this call was from `revert-buffer'.
751Finishes by calling the functions in `find-file-hooks'." 753Finishes by calling the functions in `find-file-hooks'."
752 (setq buffer-read-only (not (file-writable-p buffer-file-name))) 754 (setq buffer-read-only (not (file-writable-p buffer-file-name)))
753 (if noninteractive 755 (if noninteractive