From bb14938c9ff60e83fc2bc17ff5af83ea7648688d Mon Sep 17 00:00:00 2001 From: Vinicius Jose Latorre Date: Tue, 11 Dec 2007 00:26:52 +0000 Subject: [PATCH] revert-buffer eliminates overlays and the mark --- lisp/ChangeLog | 4 ++++ lisp/files.el | 16 +++++++++++----- 2 files changed, 15 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 701a0071745..09a3e801ddd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-12-10 Yoni Rabkin Katzenell (tiny change) + + * file.el (revert-buffer): Eliminate overlays and the mark. + 2007-12-10 Stefan Monnier * server.el (server-select-display): Fix important typo. diff --git a/lisp/files.el b/lisp/files.el index 8d5fcfda8c2..e6f957f480f 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -4204,10 +4204,12 @@ 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. +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 @@ -4323,7 +4325,11 @@ non-nil, it is called instead of rereading visited file contents." (insert-file-contents file-name (not auto-save-p) nil nil t)) (insert-file-contents file-name (not auto-save-p) - nil nil t))))) + 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 -- 2.39.2