diff options
| author | Dave Love <fx@gnu.org> | 2000-11-12 00:33:19 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-11-12 00:33:19 +0000 |
| commit | 84d51f9bb50d4be0bc160e3ffb90f015f9cd311d (patch) | |
| tree | e4d96fb406a43777070bceade37e2c3a5c8f7490 /lisp/progmodes | |
| parent | f86f6d1ea51df09afe936d290d3ae8f07e493368 (diff) | |
| download | emacs-84d51f9bb50d4be0bc160e3ffb90f015f9cd311d.tar.gz | |
(visit-tags-table-buffer): Beware of `t' in
tags-table-list.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/etags.el | 6 |
1 files 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. |