From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 3 Mar 2002 00:36:27 +0000 (+0000)
Subject: (find-grep-dired): Rename arg to `regexp'.
X-Git-Tag: ttn-vms-21-2-B4~16391
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4367c5a259eab024a9205e90717d798b43f958b3;p=emacs.git

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

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)