# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 777159760 0
# Node ID 0b44462dbbc8fdea732a0d02d38130a2db5eecea
# Parent  090fb6dea9ddbc182e07fdf3d4d68fa0efbb79de
(after-find-file): New arg from-revert-buffer.
(revert-buffer): Pass t for that.

diff -r 090fb6dea9dd -r 0b44462dbbc8 lisp/files.el
--- 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)))))