From 5f485a2fc04053163a0f0b4a3019a141b8735068 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 20 Jun 2019 17:45:52 -0400 Subject: * lisp/vc/vc-dir.el (vc-dir-search): Avoid `eval`. --- lisp/vc/vc-dir.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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. -- cgit v1.2.1