From: Dave Love <fx@gnu.org>
Date: Sun, 12 Nov 2000 00:33:19 +0000 (+0000)
Subject: (visit-tags-table-buffer): Beware of `t' in
X-Git-Tag: emacs-pretest-21.0.90~121
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=84d51f9bb50d4be0bc160e3ffb90f015f9cd311d;p=emacs.git

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

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.