Commit 5f485a2f authored by Stefan Monnier's avatar Stefan Monnier

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

parent 8bccbb98
Pipeline #2192 failed with stage
in 53 minutes and 7 seconds
......@@ -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.
......
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