# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1201909027 0
# Node ID 36aeb7924be6b0da8e78cc44220238073f98e24d
# Parent  96cc6db7db012bd4879026590f3f95c0bbdb7416
Undo last change.
(next-file): Improve revert message.

diff -r 96cc6db7db01 -r 36aeb7924be6 lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Fri Feb 01 23:36:51 2008 +0000
+++ b/lisp/progmodes/etags.el	Fri Feb 01 23:37:07 2008 +0000
@@ -1629,14 +1629,12 @@
       (and (search-forward "\177" (save-excursion (end-of-line) (point)) t)
 	   (re-search-backward re bol t)))))
 
-(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."
+(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."
   :type 'boolean
   :group 'etags)
 
@@ -1698,16 +1696,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)))
+	 (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)))
+	   (revert-buffer t t)))
     (if (not (and new novisit))
 	(set-buffer (find-file-noselect next novisit))
       ;; Like find-file, but avoids random warning messages.