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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 35d0e05abdcbd939ba3e0fc34df002b639261418..ec840d5228616992c55822d926fd99e8910307d0 100644 (file)
--- 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 68f076a8284f607b2ebeb7e5a3e14ee4782a3079..a09283ec29b5f167693d7d7869a83dad8394310b 100644 (file)
--- 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)