Commit 725349c8 authored by Stefan Monnier's avatar Stefan Monnier

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

parent f6737625
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment