diff options
author | Andreas Schwab <schwab@suse.de> | 1998-01-07 10:31:09 +0000 |
---|---|---|
committer | Andreas Schwab <schwab@suse.de> | 1998-01-07 10:31:09 +0000 |
commit | 33933d45beb4ab3b66b421a970fc9d3ab18e9acc (patch) | |
tree | 2794bb910287b8a044651317863a89538d2251a3 /lisp/find-dired.el | |
parent | 92631216919566dd1bfc6a880fc35c2ef0611457 (diff) | |
download | emacs-33933d45beb4ab3b66b421a970fc9d3ab18e9acc.tar.gz |
Customized.
Diffstat (limited to 'lisp/find-dired.el')
-rw-r--r-- | lisp/find-dired.el | 21 |
1 files changed, 16 insertions, 5 deletions
diff --git a/lisp/find-dired.el b/lisp/find-dired.el index daa610af18a..502a93c1c74 100644 --- a/lisp/find-dired.el +++ b/lisp/find-dired.el @@ -27,25 +27,36 @@ (require 'dired) +(defgroup find-dired nil + "Run a `find' command and dired the output." + :group 'dired + :prefix "find-") + ;; find's -ls corresponds to these switches. ;; Note -b, at least GNU find quotes spaces etc. in filenames ;;;###autoload -(defvar find-ls-option (if (eq system-type 'berkeley-unix) '("-ls" . "-gilsb") - '("-exec ls -ld {} \\;" . "-ld")) +(defcustom find-ls-option + (if (eq system-type 'berkeley-unix) '("-ls" . "-gilsb") + '("-exec ls -ld {} \\;" . "-ld")) "*Description of the option to `find' to produce an `ls -l'-type listing. This is a cons of two strings (FIND-OPTION . LS-SWITCHES). FIND-OPTION gives the option (or options) to `find' that produce the desired output. -LS-SWITCHES is a list of `ls' switches to tell dired how to parse the output.") +LS-SWITCHES is a list of `ls' switches to tell dired how to parse the output." + :type '(cons (string :tag "Find Option") + (string :tag "Ls Switches")) + :group 'find-dired) ;;;###autoload -(defvar find-grep-options +(defcustom find-grep-options (if (or (eq system-type 'berkeley-unix) (string-match "solaris2" system-configuration) (string-match "irix" system-configuration)) "-s" "-q") "*Option to grep to be as silent as possible. On Berkeley systems, this is `-s'; on Posix, and with GNU grep, `-q' does it. -On other systems, the closest you can come is to use `-l'.") +On other systems, the closest you can come is to use `-l'." + :type 'string + :group 'find-dired) (defvar find-args nil "Last arguments given to `find' by \\[find-dired].") |