Mercurial > emacs
comparison lisp/progmodes/etags.el @ 45430:d207a1784c9e
(tags-complete-tags-table-file): Don't cons unnecessarily.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 20 May 2002 18:48:33 +0000 |
| parents | 92316652b440 |
| children | e475ce899bf1 |
comparison
equal
deleted
inserted
replaced
| 45429:5d3b861665f0 | 45430:d207a1784c9e |
|---|---|
| 1748 (save-excursion | 1748 (save-excursion |
| 1749 ;; If we need to ask for the tag table, allow that. | 1749 ;; If we need to ask for the tag table, allow that. |
| 1750 (let ((enable-recursive-minibuffers t)) | 1750 (let ((enable-recursive-minibuffers t)) |
| 1751 (visit-tags-table-buffer)) | 1751 (visit-tags-table-buffer)) |
| 1752 (if (eq what t) | 1752 (if (eq what t) |
| 1753 (all-completions string (mapcar 'list (tags-table-files)) | 1753 (all-completions string (tags-table-files) predicate) |
| 1754 predicate) | 1754 (try-completion string (tags-table-files) predicate)))) |
| 1755 (try-completion string (mapcar 'list (tags-table-files)) | |
| 1756 predicate)))) | |
| 1757 | 1755 |
| 1758 ;;;###autoload | 1756 ;;;###autoload |
| 1759 (defun list-tags (file &optional next-match) | 1757 (defun list-tags (file &optional next-match) |
| 1760 "Display list of tags in file FILE. | 1758 "Display list of tags in file FILE. |
| 1761 This searches only the first table in the list, and no included tables. | 1759 This searches only the first table in the list, and no included tables. |