changeset 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 5d3b861665f0
children 7505ed4a9b60
files lisp/progmodes/etags.el
diffstat 1 files changed, 2 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/etags.el	Mon May 20 18:32:07 2002 +0000
+++ b/lisp/progmodes/etags.el	Mon May 20 18:48:33 2002 +0000
@@ -1750,10 +1750,8 @@
     (let ((enable-recursive-minibuffers t))
       (visit-tags-table-buffer))
     (if (eq what t)
-	(all-completions string (mapcar 'list (tags-table-files))
-			 predicate)
-      (try-completion string (mapcar 'list (tags-table-files))
-		      predicate))))
+	(all-completions string (tags-table-files) predicate)
+      (try-completion string (tags-table-files) predicate))))
 
 ;;;###autoload
 (defun list-tags (file &optional next-match)