Mercurial > emacs
changeset 33418:5908c0927a3e
(visit-tags-table-buffer): Beware of `t' in
tags-table-list.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Sun, 12 Nov 2000 00:33:19 +0000 |
| parents | ea170167e034 |
| children | 21ac2c51ac59 |
| files | lisp/progmodes/etags.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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.