Mercurial > emacs

changeset 4857:3ca316ec55e3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 896f3b49b53c
children 5b4f9564bfaf
files lisp/progmodes/etags.el
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/etags.el	Mon Oct 18 07:05:11 1993 +0000
+++ b/lisp/progmodes/etags.el	Mon Oct 18 07:54:49 1993 +0000
@@ -1249,8 +1249,11 @@
   "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)