[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/find-dired.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/find-dired.el |
Date: |
Sat, 02 Mar 2002 19:36:00 -0500 |
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)