Mercurial > emacs
changeset 19358:33f430abc9ed
(tags-verify-table): Obey revert-without-query.
(verify-tags-table-function): Doc fix.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 15 Aug 1997 19:28:16 +0000 |
| parents | e2131e9d3bf6 |
| children | 8f531dfe20bc |
| files | lisp/progmodes/etags.el |
| diffstat | 1 files changed, 16 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/etags.el Fri Aug 15 19:26:07 1997 +0000 +++ b/lisp/progmodes/etags.el Fri Aug 15 19:28:16 1997 +0000 @@ -152,8 +152,7 @@ (defvar tags-included-tables-function nil "Function to do the work of `tags-included-tables' (which see).") (defvar verify-tags-table-function nil - "Function to return t iff the current buffer contains a valid -\(already initialized\) tags file.") + "Function to return t iff current buffer contains valid tags file.") ;; Initialize the tags table in the current buffer. ;; Returns non-nil iff it is a valid tags table. On @@ -314,10 +313,21 @@ (set-buffer (get-file-buffer file)) (setq win (or verify-tags-table-function (initialize-new-tags-table))) (if (or (verify-visited-file-modtime (current-buffer)) - (not (yes-or-no-p - (format "Tags file %s has changed, read new contents? " - file)))) - (and win (funcall verify-tags-table-function)) + ;; Decide whether to revert the file. + ;; revert-without-query can say to revert + ;; or the user can say to revert. + (not (or (let ((tail revert-without-query) + (found nil)) + (while tail + (if (string-match (car tail) buffer-file-name) + (setq found t)) + (setq tail (cdr tail))) + found) + (yes-or-no-p + (format "Tags file %s has changed, read new contents? " + file))))) + (and verify-tags-table-function + (funcall verify-tags-table-function)) (revert-buffer t t) (initialize-new-tags-table))) (and (file-exists-p file)