(tags-reset-tags-tables): New function.

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 3f25c09a9e1148051e56ca46585d815396e404ed..7e63bb176b4b65e9569b65b4faa4fca335b8d20c 100644 (file)
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -562,6 +562,19 @@ Returns t if it visits a tags table, or nil if there are no more in the list."
        (if (eq local-tags-file-name tags-file-name)
            (setq tags-file-name nil))
        (error "File %s is not a valid tags table" local-tags-file-name)))))
+
+(defun tags-reset-tags-tables ()
+  "Reset tags state to cancel effect of any previous \\[visit-tags-table]
+or \\[find-tag]."
+  (interactive)
+  (setq tags-file-name nil
+       tags-location-stack nil
+       tags-table-list nil
+       tags-table-computed-list nil
+       tags-table-computed-list-for nil
+       tags-table-list-pointer nil
+       tags-table-list-started-at nil
+       tags-table-set-list nil))
 \f
 (defun file-of-tag ()
   "Return the file name of the file whose tags point is within.