mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-14 09:39:42 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Stefan Monnier 2019-06-20 17:45:52 -04:00
parent 8bccbb9889
commit 5f485a2fc0
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/vc/vc-dir.el
View File

@ -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.