1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00

return back entry: revert-buffer should eliminate overlays and the mark

This commit is contained in:
Vinicius Jose Latorre 2007-12-12 01:18:26 +00:00
parent c7d97628b0
commit 2a29c40930
3 changed files with 7 additions and 15 deletions

View File

@ -37,6 +37,8 @@ a window doesn't select it.
** buffer-offer-save should be a permanent local.
** revert-buffer should eliminate overlays and the mark.
** erase-buffer should perhaps disregard read-only properties of text.
** Make occur correctly handle matches that span more than one line,

View File

@ -9,10 +9,6 @@
* calc/calc.el (calc-set-mode-line): Use `math-lang-name'
to set language name.
2007-12-10 Yoni Rabkin Katzenell <yoni-r@actcom.com> (tiny change)
* file.el (revert-buffer): Eliminate overlays and the mark.
2007-12-10 Stefan Monnier <monnier@iro.umontreal.ca>
* server.el (server-select-display): Fix important typo.

View File

@ -4204,12 +4204,10 @@ 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.
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
@ -4325,11 +4323,7 @@ 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))
;; Reset the mark and remove all overlays.
(setq mark-active nil
mark-ring nil)
(remove-overlays))))
nil nil t)))))
;; Recompute the truename in case changes in symlinks
;; have changed the truename.
(setq buffer-file-truename