Commit 2a29c409 authored by Vinicius Jose Latorre's avatar Vinicius Jose Latorre

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

parent c7d97628
......@@ -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,
......
......@@ -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.
......
......@@ -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
......
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