From d5792fb2eb6bed6df37eb46547f3c8df3b464b36 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 11 Oct 1998 22:17:03 +0000 Subject: [PATCH] (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. --- lisp/progmodes/etags.el | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) 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. -- 2.39.2