# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1021920513 0
# Node ID d207a1784c9e591c913577257254fc4afe1e7b8a
# Parent  5d3b861665f0972dce4f5d1223186359b0507e03
(tags-complete-tags-table-file): Don't cons unnecessarily.

diff -r 5d3b861665f0 -r d207a1784c9e lisp/progmodes/etags.el
--- 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)