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

725349c8 · Stefan Monnier · f6737625 · 725349c8
Commit 725349c8 authored May 20, 2002 by Stefan Monnier
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 4 deletions

lisp/progmodes/etags.el lisp/progmodes/etags.el +2 -4

No files found.
--- 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)