emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/files.el,v


From: Vinicius Jose Latorre
Subject: [Emacs-diffs] Changes to emacs/lisp/files.el,v
Date: Tue, 11 Dec 2007 00:26:53 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Vinicius Jose Latorre <viniciusjl>      07/12/11 00:26:53

Index: files.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/files.el,v
retrieving revision 1.945
retrieving revision 1.946
diff -u -b -r1.945 -r1.946
--- files.el    6 Dec 2007 00:17:56 -0000       1.945
+++ files.el    11 Dec 2007 00:26:52 -0000      1.946
@@ -4204,10 +4204,12 @@
 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 @@
                           (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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]