Mercurial > emacs

comparison lisp/find-dired.el @ 20597:886039ba7b3e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Customized.
author Andreas Schwab <schwab@suse.de>
date Wed, 07 Jan 1998 10:31:09 +0000
parents 717e09103d06
children 9b9c929675eb
comparison
equal deleted inserted replaced
20596:bda7ed815582 20597:886039ba7b3e
25 25
26 ;;; Code: 26 ;;; Code:
27 27
28 (require 'dired) 28 (require 'dired)
29 29
30 (defgroup find-dired nil
31 "Run a `find' command and dired the output."
32 :group 'dired
33 :prefix "find-")
34
30 ;; find's -ls corresponds to these switches. 35 ;; find's -ls corresponds to these switches.
31 ;; Note -b, at least GNU find quotes spaces etc. in filenames 36 ;; Note -b, at least GNU find quotes spaces etc. in filenames
32 ;;;###autoload 37 ;;;###autoload
33 (defvar find-ls-option (if (eq system-type 'berkeley-unix) '("-ls" . "-gilsb") 38 (defcustom find-ls-option
34 '("-exec ls -ld {} \\;" . "-ld")) 39 (if (eq system-type 'berkeley-unix) '("-ls" . "-gilsb")
40 '("-exec ls -ld {} \\;" . "-ld"))
35 "*Description of the option to `find' to produce an `ls -l'-type listing. 41 "*Description of the option to `find' to produce an `ls -l'-type listing.
36 This is a cons of two strings (FIND-OPTION . LS-SWITCHES). FIND-OPTION 42 This is a cons of two strings (FIND-OPTION . LS-SWITCHES). FIND-OPTION
37 gives the option (or options) to `find' that produce the desired output. 43 gives the option (or options) to `find' that produce the desired output.
38 LS-SWITCHES is a list of `ls' switches to tell dired how to parse the output.") 44 LS-SWITCHES is a list of `ls' switches to tell dired how to parse the output."
39 45 :type '(cons (string :tag "Find Option")
40 ;;;###autoload 46 (string :tag "Ls Switches"))
41 (defvar find-grep-options 47 :group 'find-dired)
48
49 ;;;###autoload
50 (defcustom find-grep-options
42 (if (or (eq system-type 'berkeley-unix) 51 (if (or (eq system-type 'berkeley-unix)
43 (string-match "solaris2" system-configuration) 52 (string-match "solaris2" system-configuration)
44 (string-match "irix" system-configuration)) 53 (string-match "irix" system-configuration))
45 "-s" "-q") 54 "-s" "-q")
46 "*Option to grep to be as silent as possible. 55 "*Option to grep to be as silent as possible.
47 On Berkeley systems, this is `-s'; on Posix, and with GNU grep, `-q' does it. 56 On Berkeley systems, this is `-s'; on Posix, and with GNU grep, `-q' does it.
48 On other systems, the closest you can come is to use `-l'.") 57 On other systems, the closest you can come is to use `-l'."
58 :type 'string
59 :group 'find-dired)
49 60
50 (defvar find-args nil 61 (defvar find-args nil
51 "Last arguments given to `find' by \\[find-dired].") 62 "Last arguments given to `find' by \\[find-dired].")
52 63
53 ;; History of find-args values entered in the minibuffer. 64 ;; History of find-args values entered in the minibuffer.