comparison lisp/files.el @ 87222:415e3088cd6c

revert-buffer eliminates overlays and the mark

87221:9e7453c93f6d

  "Replace current buffer text with the text of the visited file on disk.
This undoes all changes since the file was visited or saved.
With a prefix argument, offer to revert from latest auto-save file, if
that is more recent than the visited file.

This command also works for special buffers that contain text which
doesn't come from a file, but reflects some other data base instead:
for example, Dired buffers and `buffer-list' buffers.  In these cases,
it reconstructs the buffer contents from the appropriate data base.

When called from Lisp, the first argument is IGNORE-AUTO; only offer
to revert from the auto-save file when this is nil.  Note that the
sense of this argument is the reverse of the prefix argument, for the
sake of backward compatibility.  IGNORE-AUTO is optional, defaulting

		     (if preserve-modes
			 (let ((buffer-file-format buffer-file-format))
			   (insert-file-contents file-name (not auto-save-p)
						 nil nil t))
		       (insert-file-contents file-name (not auto-save-p)
					     nil nil t)))))
		 ;; Recompute the truename in case changes in symlinks
		 ;; have changed the truename.
		 (setq buffer-file-truename
		       (abbreviate-file-name (file-truename buffer-file-name)))
		 (after-find-file nil nil t t preserve-modes)

87222:415e3088cd6c

  "Replace current buffer text with the text of the visited file on disk.
This undoes all changes since the file was visited or saved.
With a prefix argument, offer to revert from latest auto-save file, if
that is more recent than the visited file.

This command also implements an interface for special buffers
that contain text which doesn't come from a file, but reflects
some other data instead (e.g. Dired buffers, `buffer-list'
buffers).  This is done via the variable
`revert-buffer-function'.  In these cases, it should reconstruct
the buffer contents from the appropriate data.

When called from Lisp, the first argument is IGNORE-AUTO; only offer
to revert from the auto-save file when this is nil.  Note that the
sense of this argument is the reverse of the prefix argument, for the
sake of backward compatibility.  IGNORE-AUTO is optional, defaulting

		     (if preserve-modes
			 (let ((buffer-file-format buffer-file-format))
			   (insert-file-contents file-name (not auto-save-p)
						 nil nil t))
		       (insert-file-contents file-name (not auto-save-p)
					     nil nil t))
		     ;; Reset the mark and remove all overlays.
		     (setq mark-active nil
			   mark-ring nil)
		     (remove-overlays))))
		 ;; Recompute the truename in case changes in symlinks
		 ;; have changed the truename.
		 (setq buffer-file-truename
		       (abbreviate-file-name (file-truename buffer-file-name)))
		 (after-find-file nil nil t t preserve-modes)