[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 5f485a2: * lisp/vc/vc-dir.el (vc-dir-search): Avoid
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master 5f485a2: * lisp/vc/vc-dir.el (vc-dir-search): Avoid `eval`. |
Date: |
Thu, 20 Jun 2019 17:45:57 -0400 (EDT) |
branch: master
commit 5f485a2fc04053163a0f0b4a3019a141b8735068
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* 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 7af1e0d..41b1087 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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 5f485a2: * lisp/vc/vc-dir.el (vc-dir-search): Avoid `eval`.,
Stefan Monnier <=