From c6987f0b9018e7ab5f3483ad33885999e82c4e43 Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Fri, 14 Oct 1994 03:26:31 +0000 Subject: [PATCH] (tags-reset-tags-tables): New function. --- lisp/progmodes/etags.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 3f25c09a9e1..7e63bb176b4 100644 --- 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)) (defun file-of-tag () "Return the file name of the file whose tags point is within. -- 2.39.5