# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 973989199 0
# Node ID 5908c0927a3ec95222242cf0444361b0b2698b48
# Parent  ea170167e0346f65f9d48928c4da484123cea5e0
(visit-tags-table-buffer): Beware of `t' in
tags-table-list.

diff -r ea170167e034 -r 5908c0927a3e lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Sun Nov 12 00:28:43 2000 +0000
+++ b/lisp/progmodes/etags.el	Sun Nov 12 00:33:19 2000 +0000
@@ -634,9 +634,11 @@
 					  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.