From 84d51f9bb50d4be0bc160e3ffb90f015f9cd311d Mon Sep 17 00:00:00 2001 From: Dave Love Date: Sun, 12 Nov 2000 00:33:19 +0000 Subject: [PATCH] (visit-tags-table-buffer): Beware of `t' in tags-table-list. --- lisp/progmodes/etags.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 610b225a7da..539e4ae57d5 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -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. -- 2.39.5