Mercurial > emacs
changeset 43644:6046fb03f1af
(find-grep-dired): Rename arg to `regexp'.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 03 Mar 2002 00:35:59 +0000 |
| parents | 54f8be735591 |
| children | feb21d2d94b4 |
| files | lisp/find-dired.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/find-dired.el Sun Mar 03 00:34:32 2002 +0000 +++ b/lisp/find-dired.el Sun Mar 03 00:35:59 2002 +0000 @@ -169,11 +169,11 @@ (defalias 'lookfor-dired 'find-grep-dired) ;;;###autoload -(defun find-grep-dired (dir args) - "Find files in DIR containing a regexp ARG and start Dired on output. +(defun find-grep-dired (dir regexp) + "Find files in DIR containing a regexp REGEXP and start Dired on output. The command run (after changing into DIR) is - find . -exec grep -s ARG {} \\\; -ls + find . -exec grep -s -e REGEXP {} \\\; -ls Thus ARG can also contain additional grep options." (interactive "DFind-grep (directory): \nsFind-grep (grep regexp): ") @@ -184,7 +184,7 @@ ;; about symlinks, so as far as I know this is not wrong. (find-dired dir (concat "-type f -exec grep " find-grep-options " -e " - (shell-quote-argument args) + (shell-quote-argument regexp) args " {} \\\; "))) (defun find-dired-filter (proc string)