# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 782105191 0
# Node ID 6cd679419a9cadbc4878baa4f453a6709c021402
# Parent  f42e5fd15f6f953d576e57718e0607629a3cebb9
(tags-reset-tags-tables): New function.

diff -r f42e5fd15f6f -r 6cd679419a9c lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Fri Oct 14 02:43:58 1994 +0000
+++ b/lisp/progmodes/etags.el	Fri Oct 14 03:26:31 1994 +0000
@@ -562,6 +562,19 @@
 	(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))
 
 (defun file-of-tag ()
   "Return the file name of the file whose tags point is within.