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

args were reversed, and more processing was needed on tags-table-files.

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 93fa039c505704c1de833dddb3a8199bc4a64996..2271614fd94e750ae12e8ae3e679cdd4013015b2 100644 (file)
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -1249,8 +1249,11 @@ See documentation of variable `tags-file-name'."
   "Display list of tags in file FILE.
 FILE should not contain a directory specification
 unless it has one in the tags table."
-  (interactive (list (completing-read "List tags in file: " nil
-                                     'tags-table-files t nil)))
+  (interactive (list (completing-read "List tags in file: "
+                                     (save-excursion
+                                       (visit-tags-table-buffer)
+                                       (mapcar 'list (tags-table-files)))
+                                     nil t nil)))
   (with-output-to-temp-buffer "*Tags List*"
     (princ "Tags in file ")
     (princ file)