;ELC ;;; compiled by roland@churchy.gnu.ai.mit.edu on Mon May 29 16:47:31 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/find-dired.el ;;; emacs version 19.28.92.2. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/find-dired.el' was compiled for Emacs 19")) (require (quote dired)) #@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. (defvar find-ls-option (byte-code "Á=ƒ‡Ç" [system-type berkeley-unix ("-ls" . "-gilsb") ("-exec ls -ld {} \\;" . "-ld")] 2) (#$ . -519)) #@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'. (defvar find-grep-options (byte-code "Á=ƒ‡Ç" [system-type berkeley-unix "-s" "-q"] 2) (#$ . -964)) #@50 Last arguments given to `find' by \[find-dired]. (defvar find-args nil (#$ . 1256)) (byte-code "ÀÁ!„ÂÁ B‡" [boundp find-args-history nil current-load-list] 2) #@134 Run `find' and go into dired-mode on a buffer of the output. The command run (after changing into DIR) is find . \( ARGS \) -ls (defalias 'find-dired #[(dir args) "ÀÁ\n!!Ã\n!„ÄÅ\n\"ˆÆÇÈ!!ˆ~ˆÉ ˆÊ Ì ˆ\n Ðјƒ5Ñ‚:ÒÓQ@QÕ\nA\"ˆÖ×!ƒS× ˆ‚^ØÙ! Ú BCLˆÊ Û\nܱˆÛݱˆÞßp# á â\"ˆã ä\"ˆå !æp“ˆ)ç‰(‡" [file-name-as-directory expand-file-name dir file-directory-p error "find-dired needs a directory: %s" switch-to-buffer get-buffer-create "*Find*" kill-all-local-variables nil buffer-read-only erase-buffer default-directory args find-args "find . " "" "\\( " " \\) " find-ls-option dired-mode fboundp dired-simple-subdir-alist make-local-variable dired-subdir-alist point-min-marker " " ":\n" "\n" start-process-shell-command "find" proc set-process-filter find-dired-filter set-process-sentinel find-dired-sentinel process-mark 1 (":%s") mode-line-process] 4 (#$ . 1427) (list (read-file-name "Run find in directory: " nil "" t) (read-string "Run find (with args): " find-args (quote (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) "À  ÄQ\"‡" [find-dired dir "-name '" pattern "'"] 5 (#$ . 2474) "DFind-name (directory): \nsFind-name (filename wildcard): "]) (defalias (quote lookfor-dired) (quote 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) "À Â Ä Æ°\"‡" [find-dired dir "! -type d -exec grep " find-grep-options " " args " {} \\; "] 7 (#$ . 2962) "DFind-grep (directory): \nsFind-grep (grep regexp): "]) (defalias 'find-dired-filter #[(proc string) "À !Ã\n!ƒoŠ\nqˆŒ~ˆŠÄd bˆcˆ bˆÈÉ!„*ÊyˆÈÉ!ƒ9ËcˆÊyˆ‚* ÌZbˆÍÎÄÏ#ƒO``ÐZ|ˆ‚> bˆÑÒÓ !Ï#…kÔÓ !`T\"ˆÓ !`TÄ“-‚rÕ !)‡" [process-buffer proc buf buffer-name nil end buffer-read-only string 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) "À !Ã\n!…?Š\nqˆÄŠdbˆÆ±ˆÈuˆÉÊ ËÌO±ˆÍuˆÎÏÐ !!PÒ !ˆÓ ˆ*ÔÕp\"))‡" [process-buffer proc buf buffer-name nil buffer-read-only "\nfind " state -1 " at " current-time-string 0 19 1 ":" symbol-name process-status mode-line-process delete-process force-mode-line-update message "find-dired %s finished."] 4]) (provide (quote find-dired))