Mercurial > emacs
changeset 9525:6cd679419a9c
(tags-reset-tags-tables): New function.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Fri, 14 Oct 1994 03:26:31 +0000 |
| parents | f42e5fd15f6f |
| children | c84536ef5fa9 |
| files | lisp/progmodes/etags.el |
| diffstat | 1 files changed, 13 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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.