# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 777159965 0
# Node ID 04a87d0e4a62820e656a3a6d0f561f7015344c53
# Parent  f1b1537ed3f66a659d94eefa3d5eafae12dd19e5
(after-find-file): New arg renamed to after-find-file-from-revert-buffer.

diff -r f1b1537ed3f6 -r 04a87d0e4a62 lisp/files.el
--- a/lisp/files.el	Wed Aug 17 21:44:49 1994 +0000
+++ b/lisp/files.el	Wed Aug 17 21:46:05 1994 +0000
@@ -740,14 +740,16 @@
 	  (after-find-file error (not nowarn))))
       buf)))
 
-(defun after-find-file (&optional error warn noauto from-revert-buffer)
+(defun after-find-file (&optional error warn noauto
+				  after-find-file-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'.
+Fourth arg AFTER-FIND-FILE-FROM-REVERT-BUFFER non-nil
+ 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