[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/etags.el, v [EMACS_22_BASE
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/etags.el, v [EMACS_22_BASE] |
Date: |
Fri, 01 Feb 2008 23:21:57 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Branch: EMACS_22_BASE
Changes by: Chong Yidong <cyd> 08/02/01 23:21:57
Index: etags.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/etags.el,v
retrieving revision 1.194.2.7
retrieving revision 1.194.2.8
diff -u -b -r1.194.2.7 -r1.194.2.8
--- etags.el 29 Jan 2008 14:47:32 -0000 1.194.2.7
+++ etags.el 1 Feb 2008 23:21:56 -0000 1.194.2.8
@@ -1629,12 +1629,14 @@
(and (search-forward "\177" (save-excursion (end-of-line) (point)) t)
(re-search-backward re bol t)))))
-(defcustom tags-loop-revert-buffers nil
- "*Non-nil means tags-scanning loops should offer to reread changed files.
-These loops normally read each file into Emacs, but when a file
-is already visited, they use the existing buffer.
-When this flag is non-nil, they offer to revert the existing buffer
-in the case where the file has changed since you visited it."
+(defcustom tags-loop-revert-buffers 'ask
+ "Whether the tags-scanning loop should reread changed files.
+This loop normally reads each file into Emacs, but when a file is
+already visited, it uses the existing buffer.
+If this variable is nil, the loop uses the existing buffer even
+if the file has changed since you visited it.
+If the value is `ask', the loop offers to revert the buffer.
+Any other non-nil value means to revert the buffer automatically."
:type 'boolean
:group 'etags)
@@ -1696,6 +1698,14 @@
;; if the files have changed on disk.
(and buffer tags-loop-revert-buffers
(not (verify-visited-file-modtime buffer))
+ (or (not (eq tags-loop-revert-buffers 'ask))
+ noninteractive
+ (y-or-n-p
+ (format
+ (if (buffer-modified-p buffer)
+ "File %s changed on disk. Discard your edits? "
+ "File %s changed on disk. Reread from disk? ")
+ next)))
(with-current-buffer buffer
(revert-buffer t)))
(if (not (and new novisit))
- [Emacs-diffs] Changes to emacs/lisp/progmodes/etags.el, v [EMACS_22_BASE],
Chong Yidong <=