From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 20 Jun 2019 21:45:52 +0000 (-0400)
Subject: * lisp/vc/vc-dir.el (vc-dir-search): Avoid `eval`.
X-Git-Tag: emacs-27.0.90~2342
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5f485a2fc04053163a0f0b4a3019a141b8735068;p=emacs.git

* lisp/vc/vc-dir.el (vc-dir-search): Avoid `eval`.
---

diff --git a/lisp/vc/vc-dir.el b/lisp/vc/vc-dir.el
index 7af1e0db4ff..41b1087ee59 100644
--- a/lisp/vc/vc-dir.el
+++ b/lisp/vc/vc-dir.el
@@ -804,7 +804,9 @@ For marked directories, use the files displayed from those directories.
 Stops when a match is found.
 To continue searching for next match, use command \\[tags-loop-continue]."
   (interactive "sSearch marked files (regexp): ")
-  (tags-search regexp '(mapcar 'car (vc-dir-marked-only-files-and-states))))
+  (tags-search regexp
+               (lambda ()
+                 (mapcar #'car (vc-dir-marked-only-files-and-states)))))
 
 (defun vc-dir-query-replace-regexp (from to &optional delimited)
   "Do `query-replace-regexp' of FROM with TO, on all marked files.