;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May 3 21:48:16 1994 ;;; from file /gd/gnu/emacs/19.0/lisp/find-dired.el ;;; emacs version 19.22.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")) (defconst find-dired-version (substring "$Revision: 1.16 $" 11 -2) "\ $Id: find-dired.el,v 1.16 1994/05/03 23:39:55 kwzh Exp $") (require (quote dired)) (defvar find-ls-option (byte-code "Á=ƒ‡Ç" [system-type berkeley-unix "-ls" "-exec ls -ldi {} \\;"] 2) "\ *Option to `find' to produce an `ls -l'-type listing.") (defvar find-grep-options (byte-code "Á=ƒ‡Ç" [system-type berkeley-unix "-s" "-l"] 2) "\ *Option to grep to be as silent as possible. On Berkeley systems, this is `-s', for others it seems impossible to suppress all output, so `-l' is used to print nothing more than the file name.") (defvar find-args nil "\ Last arguments given to `find' by \\[find-dired].") (defalias 'find-dired #[(dir args) "ÀÁ\n!!Ã\n!„ÄÅ\n\"ˆÆÇÈ!!ˆ~ˆÉ ˆÊ Ì ˆ\n Ðјƒ5Ñ‚:ÒÓQQÕ\nÖ\"ˆ×Ø!ƒPØ ˆ‚[ÙÚ! Û 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 "-gilsb" fboundp dired-simple-subdir-alist make-local-variable dired-subdir-alist point-min-marker " " ":\n" "\n" set-process-filter start-process-shell-command "find" find-dired-filter set-process-sentinel get-buffer-process find-dired-sentinel (":%s") mode-line-process] 5 "\ Run `find' and go into dired-mode on a buffer of the output. The command run (after changing into DIR) is find . \\( ARGS \\) -ls" (list (read-file-name "Run find in directory: " nil "" t) (if (featurep (quote gmhist)) (read-with-history-in (quote find-args-history) "Run find (with args): ") (read-string "Run find (with args): " find-args)))]) (defalias 'find-name-dired #[(dir pattern) "À  ÄQ\"‡" [find-dired dir "-name '" pattern "'"] 5 "\ 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" "DFind-name (directory): \nsFind-name (filename wildcard): "]) (defalias (quote lookfor-dired) (quote find-grep-dired)) (defalias 'find-grep-dired #[(dir args) "À Â Ä Æ°\"‡" [find-dired dir "! -type d -exec grep " find-grep-options " " args " {} \\; "] 7 "\ 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." "DFind-grep (directory): \nsFind-grep (grep args): "]) (byte-code "ÀÁÂ\"ˆÀÃÄ\"ˆÅÆ!„ÆÇMˆÈÉ!‡" [defalias find-dired-filter #[(proc string) "À !Ã\n!ƒSŠ\nqˆŒ~ˆŠÄd bˆcˆ bˆÈÉ!„*ÊyˆÈÉ!ƒ9ËcˆÊyˆ‚* ÌZbˆÍÎÄÏ#…O``ÐZ|ˆ‚>-‚VÑ !)‡" [process-buffer proc buf buffer-name nil end buffer-read-only string looking-at "^" 1 " " 3 search-forward " ./" t 2 delete-process] 4] find-dired-sentinel #[(proc state) "À !Ã\n!…AŠ\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 set-buffer-modified-p buffer-modified-p message "find-dired %s finished."] 4] fboundp start-process-shell-command #[(name buffer &rest args) "Á=ƒÂÃ\f $‡Ã\f ÈÉÊËÌ#P%‡" [system-type vax-vms apply start-process name buffer args shell-file-name "-c" "exec " mapconcat identity " "] 10 "Start a program in a subprocess. Return the process object for it.\nArgs are NAME BUFFER COMMAND &rest COMMAND-ARGS.\nNAME is name for process. It is modified if necessary to make it unique.\nBUFFER is the buffer or (buffer-name) to associate with the process.\n Process output goes at end of that buffer, unless you specify\n an output stream or filter function to handle the output.\n BUFFER may be also nil, meaning that this process is not associated\n with any buffer\nThird arg is command name, the name of a shell command.\nRemaining arguments are the arguments for the command.\nWildcards and redirection are handled as usual in the shell."] provide find-dired] 3)