From 4367c5a259eab024a9205e90717d798b43f958b3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 3 Mar 2002 00:36:27 +0000 Subject: [PATCH] (find-grep-dired): Rename arg to `regexp'. --- lisp/ChangeLog | 6 ++++++ lisp/find-dired.el | 8 ++++---- 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 + + * find-dired.el (find-grep-dired): Call shell-quote-argument. + Specify the -e option. + Rename arg to `regexp'. + 2002-03-02 Milan Zamazal * 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) -- 2.39.5