Mercurial > emacs
changeset 1724:2dccfada2107
(visit-tags-table-buffer): When picking a table and using tags-table-list,
skip over nonexistent files in the list.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Thu, 24 Dec 1992 22:42:05 +0000 |
| parents | 4023bea27d64 |
| children | ac890f97e78b |
| files | lisp/progmodes/etags.el |
| diffstat | 1 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/etags.el Thu Dec 24 22:33:11 1992 +0000 +++ b/lisp/progmodes/etags.el Thu Dec 24 22:42:05 1992 +0000 @@ -369,7 +369,15 @@ (not (tags-table-list-member tags-file-name)) tags-file-name) ;; Fifth, use the user variable giving the table list. - (car tags-table-list) + ;; Find the first element of the list that actually exists. + (let ((list tags-table-list) + file) + (while (and list + (setq file (tags-expand-table-name (car list))) + (not (get-file-buffer file)) + (not (file-exists-p file))) + (setq list (cdr list))) + (car list)) ;; Finally, prompt the user for a file name. (expand-file-name (read-file-name "Visit tags table: (default TAGS) "