[Emacs-diffs] Changes to emacs/lisp/find-dired.el

[Richard M. Stallman]

Index: emacs/lisp/find-dired.el
diff -c emacs/lisp/find-dired.el:1.37 emacs/lisp/find-dired.el:1.38
*** emacs/lisp/find-dired.el:1.37       Sat Mar  2 19:34:32 2002
--- emacs/lisp/find-dired.el    Sat Mar  2 19:35:59 2002
***************
*** 169,179 ****
  
  (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.
  The command run (after changing into DIR) is
  
!     find . -exec grep -s ARG {} \\\; -ls
  
  Thus ARG can also contain additional grep options."
    (interactive "DFind-grep (directory): \nsFind-grep (grep regexp): ")
--- 169,179 ----
  
  (defalias 'lookfor-dired 'find-grep-dired)
  ;;;###autoload
! (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 -e REGEXP {} \\\; -ls
  
  Thus ARG can also contain additional grep options."
    (interactive "DFind-grep (directory): \nsFind-grep (grep regexp): ")
***************
*** 184,190 ****
    ;; 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)
                      args " {} \\\; ")))
  
  (defun find-dired-filter (proc string)
--- 184,190 ----
    ;; 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 regexp)
                      args " {} \\\; ")))
  
  (defun find-dired-filter (proc string)