From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 17 Feb 1994 08:19:58 +0000 (+0000)
Subject: (revert-buffer): Use new insert-file-contents replace arg.
X-Git-Tag: emacs-19.34~9878
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f9456b0a5b508c8b031f9cc996e904d01bcdf697;p=emacs.git

(revert-buffer): Use new insert-file-contents replace arg.
---

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)