diff options
| author | Richard M. Stallman | 1994-02-17 08:19:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-02-17 08:19:58 +0000 |
| commit | f9456b0a5b508c8b031f9cc996e904d01bcdf697 (patch) | |
| tree | fe08055ab95aca3adc8588a4776286cb78b69073 | |
| parent | 8db739de396b88ce42bd7c249a511a94f8d716c7 (diff) | |
| download | emacs-f9456b0a5b508c8b031f9cc996e904d01bcdf697.tar.gz emacs-f9456b0a5b508c8b031f9cc996e904d01bcdf697.zip | |
(revert-buffer): Use new insert-file-contents replace arg.
| -rw-r--r-- | lisp/files.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/files.el b/lisp/files.el index 16ba5280be9..7efca8ac188 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -1805,9 +1805,9 @@ beginning and `after-revert-hook' at the end." | |||
| 1805 | ;; so that we don't try to lock the file. | 1805 | ;; so that we don't try to lock the file. |
| 1806 | (let ((buffer-file-name nil)) | 1806 | (let ((buffer-file-name nil)) |
| 1807 | (or auto-save-p | 1807 | (or auto-save-p |
| 1808 | (unlock-buffer)) | 1808 | (unlock-buffer))) |
| 1809 | (erase-buffer)) | 1809 | (insert-file-contents file-name (not auto-save-p) |
| 1810 | (insert-file-contents file-name (not auto-save-p)))) | 1810 | nil nil t))) |
| 1811 | (goto-char (min opoint (point-max))) | 1811 | (goto-char (min opoint (point-max))) |
| 1812 | (after-find-file nil nil t) | 1812 | (after-find-file nil nil t) |
| 1813 | (run-hooks 'after-revert-hook) | 1813 | (run-hooks 'after-revert-hook) |