From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 11 Oct 1998 22:17:03 +0000 (+0000)
Subject: (tags-loop-revert-buffers): New variable.
X-Git-Tag: emacs-20.4~1534
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d5792fb2eb6bed6df37eb46547f3c8df3b464b36;p=emacs.git

(tags-loop-revert-buffers): New variable.
(next-file): Optionally offer to revert a file's buffer,
if it has an existing buffer but the file has changed.
---

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 94e2c6438bd..816fc2054fa 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -1348,6 +1348,15 @@ where they were found."
       (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."
+  :type 'boolean
+  :group 'etags)
+
 ;;;###autoload
 (defun next-file (&optional initialize novisit)
   "Select next file among files in current tags table.
@@ -1398,10 +1407,17 @@ if the file was newly read in, the value is the filename."
 	 (kill-buffer " *next-file*"))
     (error "All files processed"))
   (let* ((next (car next-file-list))
-	 (new (not (get-file-buffer next))))
+	 (buffer (get-file-buffer next))
+	 (new (not buffer)))
     ;; Advance the list before trying to find the file.
     ;; If we get an error finding the file, don't get stuck on it.
     (setq next-file-list (cdr next-file-list))
+    ;; Optionally offer to revert buffers
+    ;; if the files have changed on disk.
+    (and buffer tags-loop-revert-buffers
+	 (not (verify-visited-file-modtime buffer))
+	 (with-current-buffer buffer
+	   (revert-buffer t)))
     (if (not (and new novisit))
 	(set-buffer (find-file-noselect next novisit))
       ;; Like find-file, but avoids random warning messages.