(find-grep-dired): Rename arg to `regexp'.

2 files changed, 10 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 35d0e05abdc..ec840d52286 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-03-02  Richard M. Stallman  <rms@gnu.org>
+
+        * find-dired.el (find-grep-dired): Call shell-quote-argument.
+        Specify the -e option.
+        Rename arg to `regexp'.
+
 2002-03-02  Milan Zamazal  <pdm@zamazal.org>
 
         * textmodes/tildify.el (tildify-string-alist): Add entry for xml-mode.
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)