Mercurial > emacs
changeset 79588:7f97528cec7f
(find-name-arg): New custom variable.
(find-name-dired): Use it.
(find-dired-find-program): Remove.
(find-dired): Use find-program.
(find-grep-dired): Use grep-program.
| author | Jason Rumney <jasonr@gnu.org> |
|---|---|
| date | Fri, 21 Dec 2007 10:32:38 +0000 |
| parents | 9a307d915ad7 |
| children | 05774558f6e1 |
| files | lisp/find-dired.el |
| diffstat | 1 files changed, 15 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/find-dired.el Fri Dec 21 10:19:54 2007 +0000 +++ b/lisp/find-dired.el Fri Dec 21 10:32:38 2007 +0000 @@ -36,11 +36,6 @@ :group 'dired :prefix "find-") -(defcustom find-dired-find-program "find" - "Program used to find files." - :group 'dired - :type 'file) - ;; find's -ls corresponds to these switches. ;; Note -b, at least GNU find quotes spaces etc. in filenames ;;;###autoload @@ -77,6 +72,18 @@ :type 'string :group 'find-dired) +;;;###autoload +(defcustom find-name-arg + (if read-file-name-completion-ignore-case + "-iname" + "-name") + "*Argument used to specify file name pattern. +If `read-file-name-completion-ignore-case' is non-nil, -iname is used so that +find also ignores case. Otherwise, -name is used." + :type 'string + :group 'find-dired + :version "22.2") + (defvar find-args nil "Last arguments given to `find' by \\[find-dired].") @@ -126,7 +133,7 @@ (erase-buffer) (setq default-directory dir find-args args ; save for next interactive call - args (concat find-dired-find-program " . " + args (concat find-program " . " (if (string= args "") "" (concat @@ -198,7 +205,7 @@ find . -name 'PATTERN' -ls" (interactive "DFind-name (directory): \nsFind-name (filename wildcard): ") - (find-dired dir (concat "-name " (shell-quote-argument pattern)))) + (find-dired dir (concat find-name-arg " " (shell-quote-argument pattern)))) ;; This functionality suggested by ;; From: oblanc@watcgl.waterloo.edu (Olivier Blanc) @@ -222,7 +229,7 @@ ;; by FIFOs and devices. I'm not sure what's best to do ;; about symlinks, so as far as I know this is not wrong. (find-dired dir - (concat "-type f -exec grep " find-grep-options " -e " + (concat "-type f -exec " grep-program " " find-grep-options " -e " (shell-quote-argument regexp) " " (shell-quote-argument "{}")