mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(visit-tags-table-buffer): Beware of `t' in

Browse Source 
tags-table-list.
This commit is contained in:
Dave Love 2000-11-12 00:33:19 +00:00
parent f86f6d1ea5
commit 84d51f9bb5
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/progmodes/etags.el
View File

@ -634,9 +634,11 @@ Returns t if it visits a tags table, or nil if there are no more in the list."
tags-table-set-list)))
;; Clear out buffers holding old tables.
(dolist (table tags-table-list)
(let ((buffer (find-buffer-visiting table)))
;; The list can contain items `t'.
(if (stringp table)
(let ((buffer (find-buffer-visiting table)))
(if buffer
(kill-buffer buffer))))
(kill-buffer buffer)))))
(setq tags-table-list (list local-tags-file-name))))
;; Recompute tags-table-computed-list.