From: Richard M. Stallman Date: Wed, 17 Aug 1994 21:46:05 +0000 (+0000) Subject: (after-find-file): New arg renamed to after-find-file-from-revert-buffer. X-Git-Tag: emacs-19.34~7297 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e0ab8879e184362aa3305fb928fa630b76bc37c5;p=emacs.git (after-find-file): New arg renamed to after-find-file-from-revert-buffer. --- 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." (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