;ELC ;;; compiled by erik@naggum.no on Sun Jan 14 05:13:12 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/find-dired.el ;;; emacs version 19.30.70.6. ;;; 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.29"))) (error "`find-dired.el' was compiled for Emacs 19.29 or later")) (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) (#$ . -495)) #@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) (#$ . -940)) #@50 Last arguments given to `find' by \[find-dired]. (defvar find-args nil (#$ . 1232)) (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\"ˆÖ×Ø Ù \"!ˆÚÙ ÛÜ#ˆÝÞ!ƒcÞ ˆ‚nßà! á 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 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 "find" proc set-process-filter find-dired-filter set-process-sentinel find-dired-sentinel process-mark 1 (":%s") mode-line-process] 4 (#$ . 1403) (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 (#$ . 2550) "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 (#$ . 3038) "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))