diff options
| author | Stefan Monnier | 2019-06-20 17:45:52 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2019-06-20 17:45:52 -0400 |
| commit | 5f485a2fc04053163a0f0b4a3019a141b8735068 (patch) | |
| tree | 29f29c687c8c8bf567aced62e6b0ce862036945d | |
| parent | 8bccbb9889abfb5d9ca2127df6c788d9b992af37 (diff) | |
| download | emacs-5f485a2fc04053163a0f0b4a3019a141b8735068.tar.gz emacs-5f485a2fc04053163a0f0b4a3019a141b8735068.zip | |
* lisp/vc/vc-dir.el (vc-dir-search): Avoid `eval`.
| -rw-r--r-- | lisp/vc/vc-dir.el | 4 |
1 files changed, 3 insertions, 1 deletions
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. | |||
| 804 | Stops when a match is found. | 804 | Stops when a match is found. |
| 805 | To continue searching for next match, use command \\[tags-loop-continue]." | 805 | To continue searching for next match, use command \\[tags-loop-continue]." |
| 806 | (interactive "sSearch marked files (regexp): ") | 806 | (interactive "sSearch marked files (regexp): ") |
| 807 | (tags-search regexp '(mapcar 'car (vc-dir-marked-only-files-and-states)))) | 807 | (tags-search regexp |
| 808 | (lambda () | ||
| 809 | (mapcar #'car (vc-dir-marked-only-files-and-states))))) | ||
| 808 | 810 | ||
| 809 | (defun vc-dir-query-replace-regexp (from to &optional delimited) | 811 | (defun vc-dir-query-replace-regexp (from to &optional delimited) |
| 810 | "Do `query-replace-regexp' of FROM with TO, on all marked files. | 812 | "Do `query-replace-regexp' of FROM with TO, on all marked files. |