Commit f9456b0a authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 8db739de
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment