diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-03-03 00:36:27 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-03-03 00:36:27 +0000 |
| commit | 4367c5a259eab024a9205e90717d798b43f958b3 (patch) | |
| tree | dfc0145e14a8372a9f23a0d16c1007048462ea4e /lisp/find-dired.el | |
| parent | a086a7fefda190820c5640c6c81c441371c7b4ff (diff) | |
| download | emacs-4367c5a259eab024a9205e90717d798b43f958b3.tar.gz | |
(find-grep-dired): Rename arg to `regexp'.
Diffstat (limited to 'lisp/find-dired.el')
| -rw-r--r-- | lisp/find-dired.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/find-dired.el b/lisp/find-dired.el index 68f076a8284..a09283ec29b 100644 --- a/lisp/find-dired.el +++ b/lisp/find-dired.el @@ -169,11 +169,11 @@ The command run (after changing into DIR) is (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 @@ Thus ARG can also contain additional grep options." ;; 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) |