Commit 76c07747 authored by Roland McGrath's avatar Roland McGrath
Browse files

(list-tags): Fix completing-read call interactive spec; TABLE and PREDICATE

args were reversed, and more processing was needed on tags-table-files.
parent 97b83d9d
...@@ -1249,8 +1249,11 @@ See documentation of variable `tags-file-name'." ...@@ -1249,8 +1249,11 @@ See documentation of variable `tags-file-name'."
"Display list of tags in file FILE. "Display list of tags in file FILE.
FILE should not contain a directory specification FILE should not contain a directory specification
unless it has one in the tags table." unless it has one in the tags table."
(interactive (list (completing-read "List tags in file: " nil (interactive (list (completing-read "List tags in file: "
'tags-table-files t nil))) (save-excursion
(visit-tags-table-buffer)
(mapcar 'list (tags-table-files)))
nil t nil)))
(with-output-to-temp-buffer "*Tags List*" (with-output-to-temp-buffer "*Tags List*"
(princ "Tags in file ") (princ "Tags in file ")
(princ file) (princ file)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment