Mercurial > emacs
comparison lisp/progmodes/etags.el @ 1697:f14e1a6ac205
(visit-tags-table-buffer): Don't look in list for tags-file-name if nil.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Mon, 21 Dec 1992 19:13:11 +0000 |
| parents | cceb5375ce40 |
| children | 4023bea27d64 |
comparison
equal
deleted
inserted
replaced
| 1696:cceb5375ce40 | 1697:f14e1a6ac205 |
|---|---|
| 363 ;; and CONT will be set non-nil so we don't do it below. | 363 ;; and CONT will be set non-nil so we don't do it below. |
| 364 (car (save-excursion (tags-table-including buffer-file-name | 364 (car (save-excursion (tags-table-including buffer-file-name |
| 365 tags-table-list))) | 365 tags-table-list))) |
| 366 ;; Fourth, use the user variable tags-file-name, if it is not | 366 ;; Fourth, use the user variable tags-file-name, if it is not |
| 367 ;; already in tags-table-list. | 367 ;; already in tags-table-list. |
| 368 (and (not (tags-table-list-member tags-file-name)) | 368 (and tags-file-name |
| 369 (not (tags-table-list-member tags-file-name)) | |
| 369 tags-file-name) | 370 tags-file-name) |
| 370 ;; Fifth, use the user variable giving the table list. | 371 ;; Fifth, use the user variable giving the table list. |
| 371 (car tags-table-list) | 372 (car tags-table-list) |
| 372 ;; Finally, prompt the user for a file name. | 373 ;; Finally, prompt the user for a file name. |
| 373 (expand-file-name | 374 (expand-file-name |