From f9456b0a5b508c8b031f9cc996e904d01bcdf697 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 17 Feb 1994 08:19:58 +0000 Subject: [PATCH] (revert-buffer): Use new insert-file-contents replace arg. --- lisp/files.el | 6 +++--- 1 file 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." ;; so that we don't try to lock the file. (let ((buffer-file-name nil)) (or auto-save-p - (unlock-buffer)) - (erase-buffer)) - (insert-file-contents file-name (not auto-save-p)))) + (unlock-buffer))) + (insert-file-contents file-name (not auto-save-p) + nil nil t))) (goto-char (min opoint (point-max))) (after-find-file nil nil t) (run-hooks 'after-revert-hook) -- 2.39.5