Mercurial > emacs
comparison lisp/progmodes/etags.el @ 4857:3ca316ec55e3
(list-tags): Fix completing-read call interactive spec; TABLE and PREDICATE
args were reversed, and more processing was needed on tags-table-files.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Mon, 18 Oct 1993 07:54:49 +0000 |
| parents | 674082454a0c |
| children | 2f65b0f9c6fc |
comparison
equal
deleted
inserted
replaced
| 4856:896f3b49b53c | 4857:3ca316ec55e3 |
|---|---|
| 1247 ;;;###autoload | 1247 ;;;###autoload |
| 1248 (defun list-tags (file) | 1248 (defun list-tags (file) |
| 1249 "Display list of tags in file FILE. | 1249 "Display list of tags in file FILE. |
| 1250 FILE should not contain a directory specification | 1250 FILE should not contain a directory specification |
| 1251 unless it has one in the tags table." | 1251 unless it has one in the tags table." |
| 1252 (interactive (list (completing-read "List tags in file: " nil | 1252 (interactive (list (completing-read "List tags in file: " |
| 1253 'tags-table-files t nil))) | 1253 (save-excursion |
| 1254 (visit-tags-table-buffer) | |
| 1255 (mapcar 'list (tags-table-files))) | |
| 1256 nil t nil))) | |
| 1254 (with-output-to-temp-buffer "*Tags List*" | 1257 (with-output-to-temp-buffer "*Tags List*" |
| 1255 (princ "Tags in file ") | 1258 (princ "Tags in file ") |
| 1256 (princ file) | 1259 (princ file) |
| 1257 (terpri) | 1260 (terpri) |
| 1258 (save-excursion | 1261 (save-excursion |