;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:41:27 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/find-dired.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`find-dired.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\301\307\310&\207" [require dired custom-declare-group find-dired nil "Run a `find' command and dired the output." :group :prefix "find-"] 8) #@29 Program used to find files. (custom-declare-variable 'find-dired-find-program '"find" '(#$ . 810) :group 'dired :type 'file) #@297 *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. (custom-declare-variable 'find-ls-option '(if (eq system-type 'berkeley-unix) '("-ls" . "-gilsb") '("-exec ls -ld {} \\;" . "-ld")) '(#$ . -942) :type '(cons (string :tag "Find Option") (string :tag "Ls Switches")) :group 'find-dired) #@183 *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'. (custom-declare-variable 'find-grep-options '(if (or (eq system-type 'berkeley-unix) (string-match "solaris2" system-configuration) (string-match "irix" system-configuration)) "-s" "-q") '(#$ . -1480) :type 'string :group 'find-dired) #@50 Last arguments given to `find' by \[find-dired]. (defvar find-args nil (#$ . 1903)) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list find-args-history boundp nil] 2) #@222 Run `find' and go into Dired mode on a buffer of the output. The command run (after changing into DIR) is find . \( ARGS \) -ls except that the variable `find-ls-option' specifies what to use as the final argument. (defalias 'find-dired #[(dir args) "\306\307\310 !!!\311 !\204\312\313 \"\210\314\315\316!!\210\317p!\211\203?\320\n!\321=\2031\322\323!\2039\324\325\326\217\210\202?\312\327\330 \"\210)~\210\331 \210\324\332 \210  78\333 \334\230\203\\\334\202`\335 \336Q9@R\337 9A\"\210\340\341\342 \343 \"!\210\344\343 \345\346#\210\347\350!\203\210\350 \210\202\222\351\352!\f\353 BCL\210\324\354 \355\261\210\354 \356\261\210\3578p #:\360:\361\"\210\362:\363\"\210\364:!\365p\223\210)\366\211;)\207" [dired-buffers dir find buffer-read-only default-directory args abbreviate-file-name file-name-as-directory expand-file-name file-directory-p error "find-dired needs a directory: %s" switch-to-buffer get-buffer-create "*Find*" get-buffer-process process-status run yes-or-no-p "A `find' process is running; kill it? " nil (byte-code "\301!\210\302\303!\210\304!\207" [find interrupt-process sit-for 1 delete-process] 2) ((error)) "Cannot have two processes in `%s' at once" buffer-name kill-all-local-variables erase-buffer " . " "" "\\( " " \\) " dired-mode use-local-map append make-sparse-keymap current-local-map define-key "g" undefined fboundp dired-simple-subdir-alist make-local-variable dired-subdir-alist point-min-marker " " ":\n" "\n" start-process-shell-command set-process-filter find-dired-filter set-process-sentinel find-dired-sentinel process-mark 1 (":%s") find-args find-dired-find-program find-ls-option proc mode-line-process] 6 (#$ . 2096) (list (read-file-name "Run find in directory: " nil "" t) (read-string "Run find (with args): " find-args '(find-args-history . 1)))]) #@254 Search DIR recursively for files matching the globbing pattern PATTERN, and run dired on those files. PATTERN is a shell wildcard (not an Emacs regexp) and need not be quoted. The command run (after changing into DIR) is find . -name 'PATTERN' -ls (defalias 'find-name-dired #[(dir pattern) "\302\303 \304Q\"\207" [dir pattern find-dired "-name '" "'"] 5 (#$ . 3943) "DFind-name (directory): \nsFind-name (filename wildcard): "]) (defalias 'lookfor-dired 'find-grep-dired) #@207 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. (defalias 'find-grep-dired #[(dir args) "\303\304 \305\n\306\260\"\207" [dir find-grep-options args find-dired "-type f -exec grep " " " " {} \\; "] 7 (#$ . 4429) "DFind-grep (directory): \nsFind-grep (grep regexp): "]) (defalias 'find-dired-filter #[(proc string) "\305!\306 !\203m\212 q\210\214~\210\212\307d\nb\210\fc\210\nb\210\310\311!\204(\312y\210\310\311!\2037\313c\210\312y\210\202(\n\314Zb\210\315\316\307\317#\203M``\320Z|\210\202<\nb\210\321\322\323!\317#\205i\324\323!`T\"\210\323!`T\307\223-\202p\325!)\207" [proc buf end buffer-read-only string process-buffer buffer-name nil looking-at "^" 1 " " 3 search-forward " ./" t 2 search-backward "\n" process-mark dired-insert-set-properties delete-process] 4]) (defalias 'find-dired-sentinel #[(proc state) "\305!\306 !\205=\212 q\210\307\212db\210\310 \261\210\311u\210\312\313 \314\315O\261\210\316u\210\317\320\321!!P\322!\210\323 \210*\324\325p\"))\207" [proc buf buffer-read-only state mode-line-process process-buffer buffer-name nil "\n find " -1 " at " current-time-string 0 19 1 ":" symbol-name process-status delete-process force-mode-line-update message "find-dired %s finished."] 4]) (provide 'find-dired)