diff options
| author | Richard M. Stallman | 1994-08-17 21:46:05 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-08-17 21:46:05 +0000 |
| commit | e0ab8879e184362aa3305fb928fa630b76bc37c5 (patch) | |
| tree | 3c6ed0c0b3f5ce4f5072fe1928c2227c6c05f8eb | |
| parent | 39323a7e46cc32c12327c8870639dfb41ac0284b (diff) | |
| download | emacs-e0ab8879e184362aa3305fb928fa630b76bc37c5.tar.gz emacs-e0ab8879e184362aa3305fb928fa630b76bc37c5.zip | |
(after-find-file): New arg renamed to after-find-file-from-revert-buffer.
| -rw-r--r-- | lisp/files.el | 6 |
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. |
| 745 | Sets buffer mode, parses local variables. | 746 | Sets buffer mode, parses local variables. |
| 746 | Optional args ERROR, WARN, and NOAUTO: ERROR non-nil means there was an | 747 | Optional args ERROR, WARN, and NOAUTO: ERROR non-nil means there was an |
| 747 | error in reading the file. WARN non-nil means warn if there | 748 | error in reading the file. WARN non-nil means warn if there |
| 748 | exists an auto-save file more recent than the visited file. | 749 | exists an auto-save file more recent than the visited file. |
| 749 | NOAUTO means don't mess with auto-save mode. | 750 | NOAUTO means don't mess with auto-save mode. |
| 750 | FROM-REVERT-BUFFER means this call was from `revert-buffer'. | 751 | Fourth arg AFTER-FIND-FILE-FROM-REVERT-BUFFER non-nil |
| 752 | means this call was from `revert-buffer'. | ||
| 751 | Finishes by calling the functions in `find-file-hooks'." | 753 | Finishes 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 |