From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 20 May 2002 18:48:33 +0000 (+0000)
Subject: (tags-complete-tags-table-file): Don't cons unnecessarily.
X-Git-Tag: ttn-vms-21-2-B4~14946
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=725349c8624a73f2901a7dc446236c3cc70b81b1;p=emacs.git

(tags-complete-tags-table-file): Don't cons unnecessarily.
---

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 5d0fdf37724..8fe9d54bbd6 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -1750,10 +1750,8 @@ See documentation of variable `tags-file-name'."
     (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)