[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/find-dired.el, v [EMACS_22_BASE]
From: |
Jason Rumney |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/find-dired.el, v [EMACS_22_BASE] |
Date: |
Fri, 21 Dec 2007 10:32:38 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Branch: EMACS_22_BASE
Changes by: Jason Rumney <jasonr> 07/12/21 10:32:38
Index: find-dired.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/find-dired.el,v
retrieving revision 1.55.2.2
retrieving revision 1.55.2.3
diff -u -b -r1.55.2.2 -r1.55.2.3
--- find-dired.el 25 Jul 2007 04:47:23 -0000 1.55.2.2
+++ find-dired.el 21 Dec 2007 10:32:38 -0000 1.55.2.3
@@ -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: address@hidden (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 "{}")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/find-dired.el, v [EMACS_22_BASE],
Jason Rumney <=