| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/find-dired.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:18 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/find-dired.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303\304\305\306\301\307\310&\210\311\312\313\314\315\316\306\303\317\320& \210\311\321\322\323\315\316\317\324\306\303& \210\311\325\326\327\315\316\317\320\306\303& \210\311\330\331\332\317\320\306\303&\210\311\333\334\335\317\320\306\303\315\336& \207" [require dired custom-declare-group find-dired nil "Run a `find' command and dired the output." :group :prefix "find-" custom-declare-variable find-exec-terminator (if (eq 0 (ignore-errors (process-file find-program nil nil nil null-device "-exec" "echo" "{}" "+"))) "+" (shell-quote-argument ";")) "String that terminates \"find -exec COMMAND {} \".\nThe value should include any needed quoting for the shell.\nCommon values are \"+\" and \"\\\\;\", with the former more efficient\nthan the latter." :version "24.1" :type string find-ls-option (if (eq 0 (ignore-errors (process-file find-program nil nil nil null-device "-ls"))) (cons "-ls" (if (eq system-type 'berkeley-unix) "-gilsb" "-dilsb")) (cons (format "-exec ls -ld {} %s" find-exec-terminator) "-ld")) "A pair of options to produce and parse an `ls -l'-type list from `find'.\nThis is a cons of two strings (FIND-OPTION . LS-SWITCHES).\nFIND-OPTION is the option (or options) passed to `find' to produce\na file listing in the desired format. LS-SWITCHES is a set of\n`ls' switches that tell dired how to parse the output of `find'.\n\nThe two options must be set to compatible values.\nFor example, to use human-readable file sizes with GNU ls:\n (\"-exec ls -ldh {} +\" . \"-ldh\")\n\nTo use GNU find's inbuilt \"-ls\" option to list files:\n (\"-ls\" . \"-dilsb\")\nsince GNU find's output has the same format as using GNU ls with\nthe options \"-dilsb\"." (cons (string :tag "Find Option") (string :tag "Ls Switches")) find-ls-subdir-switches (if (string-match "-[a-z]*b" (cdr find-ls-option)) "-alb" "-al") "`ls' switches for inserting subdirectories in `*Find*' buffers.\nThis should contain the \"-l\" switch.\nUse the \"-F\" or \"-b\" switches if and only if you also use\nthem for `find-ls-option'." find-grep-options (if (or (eq system-type 'berkeley-unix) (string-match "solaris2\\|irix" system-configuration)) "-s" "-q") "Option to grep to be as silent as possible.\nOn Berkeley systems, this is `-s'; on Posix, and with GNU grep, `-q' does it.\nOn other systems, the closest you can come is to use `-l'." find-name-arg (if read-file-name-completion-ignore-case "-iname" "-name") "Argument used to specify file name pattern.\nIf `read-file-name-completion-ignore-case' is non-nil, -iname is used so that\nfind also ignores case. Otherwise, -name is used." "22.2"] 10)
#@50 Last arguments given to `find' by \[find-dired].
(defvar find-args nil (#$ . 3187))
(defvar find-args-history nil)
#@263 Run `find' and go into Dired mode on a buffer of the output.
The command run (after changing into DIR) is essentially
find . \( ARGS \) -ls
except that the car of the variable `find-ls-option' specifies what to
use in place of "-ls" as the final argument.
(defalias 'find-dired #[(dir args) "\306\307 !!\310 !\204 \311\312 \"\210\313\314\315!!\210\316p!\211\203= \317\n!\320=\203/ \321\322!\2037 \323\324\325\217\210\202= \311\326\327 \"\210)~\210\330 \210\323\331 \210
@A\332
\333\230\203Z \333\202f \334\335!\336
\336\334\337!\336\260\340\341B@\"\203\200 \342\343\344\345B@\"\334\346!C$\202\203 B@R\347
\350Pp\"\210\351 BA\"\210\352 D\353D\354 \"\210\355D\356\357#\210\360D!\210)\361\362!\210\3632\361\364!\210\365\366\367 @EE4\370\371!\203\314 \371 \210\202\327 \361\372!\210\f\373 BC:\361\374!\210E<\323\375 \376\261\210\375
\377\261\210\363\316p! F\201H F\201I \"\210\201J F\201K \"\210\201L F!\345p\223\210)\201M \211G)\207" [dired-buffers dir find buffer-read-only default-directory args 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 " . " "" shell-quote-argument "(" " " ")" string-match "\\`\\(.*\\) {} \\(\\\\;\\|+\\)\\'" format "%s %s %s" match-string 1 "{}" shell-command "&" dired-mode make-sparse-keymap set-keymap-parent current-local-map define-key " " kill-find use-local-map make-local-variable dired-sort-inhibit t revert-buffer-function lambda (ignore-auto noconfirm) find-dired fboundp dired-simple-subdir-alist dired-subdir-alist point-min-marker dired-subdir-switches " " ":\n" "\n" find-args find-program find-ls-option find-exec-terminator map find-ls-subdir-switches proc mode-line-process set-process-filter find-dired-filter set-process-sentinel find-dired-sentinel process-mark (":%s")] 9 (#$ . 3309) (list (read-directory-name "Run find in directory: " nil "" t) (read-string "Run find (with args): " find-args '(find-args-history . 1)))])
#@56 Kill the `find' process running in the current buffer.
(defalias 'kill-find #[nil "\301p!\211\205 \302!\303=\205 \304!\305=\205 \306\307\310\217)\207" [find get-buffer-process process-status run process-filter find-dired-filter nil (delete-process find) ((error))] 4 (#$ . 5623) nil])
#@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) "\303 \304\305\n!Q\"\207" [dir find-name-arg pattern find-dired " " shell-quote-argument] 6 (#$ . 5921) "DFind-name (directory): \nsFind-name (filename wildcard): "])
(defalias 'lookfor-dired 'find-grep-dired)
#@320 Find files in DIR containing a regexp REGEXP and start Dired on output.
The command run (after changing into DIR) is
find . \( -type f -exec `grep-program' `find-grep-options' \
-e REGEXP {} \; \) -ls
where the car of the variable `find-ls-option' specifies what to
use in place of "-ls" as the final argument.
(defalias 'find-grep-dired #[(dir regexp) "\304\305 \306\n\307\310 !\306\310\311!\306\310\312!\260\n\"\207" [dir grep-program find-grep-options regexp find-dired "-type f -exec " " " " -e " shell-quote-argument "{}" ";"] 13 (#$ . 6435) "DFind-grep (directory): \nsFind-grep (grep regexp): "])
(defalias 'find-dired-filter #[(proc string) "\306!\307\310\n!\203\267 r\nq\210\212\214~\210\311d :\205 \312\313 A\"\314 ! \"!b\210#c\210!b\210\315\316!\204< \317y\210\315\316!\203K \320c\210\317y\210\202< !\321Zb\210\322\323\311\307#\203b ``\324Z|\210\202Q
\203\226 !b\210\325 b\210\326\f\311\307#\203\226 \327\330\331\332\317!\"\311\211\211\317%\210\327\330\333\332\324!\"\311\211\211\324%\210\317y\210\202n db\210\334\335\336!\307#\205\262 \337\336!`T\"\210\336!`T\311\223.\202\272 \340!*\207" [proc inhibit-read-only buf find-ls-option ls-regexp l-opt process-buffer t buffer-name nil string-match "l" "^ +[^
\n]+\\( +[^
\n]+\\) +[^
\n]+ +[^
\n]+\\( +[0-9]+\\)" looking-at "^" 1 " " 3 search-forward " ./" 2 line-beginning-position re-search-forward replace-match format "%4s" match-string "%9s" search-backward "\n" process-mark dired-insert-set-properties delete-process beg buffer-read-only string] 6])
(defalias 'find-dired-sentinel #[(proc state) "\306!\307\310\n!\205? r\nq\210\311\212db\210\312\f\261\210\313u\210\314\315 \316\317O\261\210\320u\210\321\322\323!!P\324!\210\325 \210*\326\327p\")*\207" [proc inhibit-read-only buf buffer-read-only state mode-line-process process-buffer t 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)