Current File : //usr/local/share/emacs/27.2/lisp/find-dired.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\315DD\316\317\320\306\303\321\322& \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 funcall function #[0 "\3021 \303\304\211\211 \305\306\307\310& 0\202 \210\304\311=\203 \310\207\312\313!\207" [find-program null-device (error) process-file nil "-exec" "echo" "{}" "+" 0 shell-quote-argument ";"] 10] "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] 10)
(defvar find-ls-option-default-ls (byte-code "\301\302=\203 \303\202\f \304B\207" [system-type "-ls" berkeley-unix "-gilsb" "-dilsb"] 3))
(defvar find-ls-option-default-exec (byte-code "\301\302\"\303B\207" [find-exec-terminator format "-exec ls -ld {} %s" "-ld"] 3))
(defvar find-ls-option-default-xargs (cons "-print0 | sort -z | xargs -0 -e ls -ld" "-ld"))
(byte-code "\303\304\305\306\307DD\310\311\312\313\314\315\316\317\320@D\320AD\257\315\316\321\320 @D\320 AD\257\315\316\322\320\n@D\320\nAD\257\323BBBB\324\325& \210\303\326\305\306\327DD\330\311\331\313\320\324\325& \210\303\332\305\306\333DD\334\313\320\324\325&\210\303\335\305\306\336DD\337\313\320\324\325\311\340& \210\303\341\305\306\342DD\343\311\312\324\325\313\344& \207" [find-ls-option-default-ls find-ls-option-default-exec find-ls-option-default-xargs custom-declare-variable find-ls-option funcall function #[0 "\3041 \305\306\211\211 \307&0\202 \210\306\310=\203 \n\207 \207" [find-program null-device find-ls-option-default-ls find-ls-option-default-exec (error) process-file nil "-ls" 0] 7] "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\".\n\nWhile the option `find -ls' often produces unsorted output, the option\n`find -exec ls -ld' maintains the sorting order only on short output,\nwhereas `find -print | sort | xargs' produced sorted output even\non the large number of files." :version "27.1" :type choice cons :tag "find -ls" string "find -exec ls -ld" "find -print | sort | xargs" ((cons :tag "Other values" (string :tag "Find Option") (string :tag "Ls Switches"))) :group find-dired find-ls-subdir-switches #[0 "\301\302A\"\203\n \303\207\304\207" [find-ls-option string-match "-[a-z]*b" "-alb" "-al"] 3] "`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'." "24.1" find-grep-options #[0 "\302=\204
\303\304 \"\203 \305\207\306\207" [system-type system-configuration berkeley-unix string-match "solaris2" "-s" "-q"] 3] "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 #[0 "\203 \301\207\302\207" [read-file-name-completion-ignore-case "-iname" "-name"] 1] "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" find-dired-refine-function #[0 "\300\207" [find-dired-sort-by-filename] 1] "If non-nil, a function for refining the *Find* buffer of `find-dired'.\nThis function takes no arguments. The *Find* buffer is narrowed to the\noutput of `find' (one file per line) when this function is called." (choice (const :tag "Sort file names lexicographically" find-dired-sort-by-filename) (function :tag "Refining function") (const :tag "No refining" nil))] 16)
#@50 Last arguments given to `find' by \[find-dired].
(defvar find-args nil (#$ . 4751))
(defvar find-args-history nil)
#@278 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.
(fn DIR ARGS)
(defalias 'find-dired #[514 "\306\307!!\262\310!\204 \311\312\"\210\313\314\315!!\210\316p!\211\203R \317!\320=\2031 \321\322\323!!\203L \3241D \325!\210\326\327!\210\330!0\202H \210\202R \210\202R \311\331\332 \"\210\210~\210\333 \210\334\335 \210\211\f\336\337\230\203m \337\202y \340\341!\342\342\340\343!\342\260\344\345
@\"\203\221 \346\347\350\327
@\"\340\351!@$\202\223
@R\262\352\353Pp\"\210\354
A\"\210\355 \356\357 \"\210\360\361\362#\210\363!\266\364\365!\210\3665\364\367!\210\370\371\372 EE7\373\374!\203\326 \374 \210\202\341 \364\375!\210\n\376 BC=\364\377!\210A?\334\201C \201D \261\210`\201C \201E \261\210\201F `\"\266\366\316p!\201G \201H \"\210\201I \201J \"\210\201K !`p\223\266\201L \211B)\207" [dired-buffers buffer-read-only default-directory find-args find-program find-ls-option file-name-as-directory expand-file-name file-directory-p error "find-dired needs a directory: %s" pop-to-buffer-same-window get-buffer-create "*Find*" get-buffer-process process-status run yes-or-no-p format-message "A `find' process is running; kill it? " (error) interrupt-process sit-for 1 delete-process "Cannot have two processes in `%s' at once" buffer-name kill-all-local-variables nil erase-buffer " . " "" shell-quote-argument "(" " " ")" string-match "\\`\\(.*\\) {} \\(\\\\;\\|\\+\\)\\'" format "%s %s %s" match-string "{}" 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 find-exec-terminator find-ls-subdir-switches mode-line-process " " ":\n" "\n" dired-insert-set-properties set-process-filter find-dired-filter set-process-sentinel find-dired-sentinel process-mark (":%s")] 10 (#$ . 4873) (byte-code "\301\302\303\304\305$\306\307\310#D\207" [find-args read-directory-name "Run find in directory: " nil "" t read-string "Run find (with args): " (find-args-history . 1)] 5)])
#@56 Kill the `find' process running in the current buffer.
(defalias 'kill-find #[0 "\300p!\211\205$ \301!\302=\205$ \303!\304=\205$ \3051\" \306!0\202$ \210\307\207" [get-buffer-process process-status run process-filter find-dired-filter (error) delete-process nil] 3 (#$ . 7272) nil])
#@333 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 default command run (after changing into DIR) is
find . -name \='PATTERN\=' -ls
See `find-name-arg' to customize the arguments.
(fn DIR PATTERN)
(defalias 'find-name-dired #[514 "\301\302\303!Q\"\207" [find-name-arg find-dired " " shell-quote-argument] 8 (#$ . 7565) "DFind-name (directory): \nsFind-name (filename wildcard): "])
(defalias 'lookfor-dired 'find-grep-dired)
#@364 Find files in DIR that contain matches for 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 first string in the value of the variable `find-ls-option'
specifies what to use in place of "-ls" as the final argument.
(fn DIR REGEXP)
(defalias 'find-grep-dired #[514 "\302\303\304 \305\306!\304\306\307!\304\306\310!\260\n\"\207" [grep-program find-grep-options find-dired "-type f -exec " " " " -e " shell-quote-argument "{}" ";"] 15 (#$ . 8135) "DFind-grep (directory): \nsFind-grep (grep regexp): "])
#@20
(fn PROC STRING)
(defalias 'find-dired-filter #[514 "\303!\304\305!\203\262 r\211q\210\212\214~\210\306d :\205 \307\310 A\"\311b\210c\210b\210\312\313!\2044 \314y\210\312\313!\203C \315c\210\314y\210\2024 \316Zb\210\317\320\306\304#\203Y ``\321Z|\210\202H \203\214 b\210\322 b\210\323\306\304#\203\214 \324\325\326\327\314!\"\306\211\211\314%\210\324\325\330\327\321!\"\306\211\211\321%\210\314y\210\202d db\210\331\332\333 !\304#\205\253 \334\333!`T\"\210\333!`T\306\223)\266\204+\202\265 \335!)\207" [inhibit-read-only find-ls-option buffer-read-only process-buffer t buffer-name nil string-match "l" "^ +[^
\n]+\\( +[^
\n]+\\) +[^
\n]+ +[^
\n]+\\( +[^[:space:]]+\\)" 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] 13 (#$ . 8778)])
#@56 Sentinel for \[find-dired] processes.
(fn PROC STATE)
(defalias 'find-dired-sentinel #[514 "\303!\304!\203N r\211q\210\305\212\214~\210 \203\" `d\306Z}\210 \210~\210d\211b\210\307\310\311\312#\313\310\314 \311\315#\261\210\316`\"\266)\317\320\321!\"\322!\210\323 +\202R \324\325\"\207" [inhibit-read-only find-dired-refine-function mode-line-process process-buffer buffer-name t 2 "\n find " substring 0 -1 " at " current-time-string 19 dired-insert-set-properties format ":%s" process-status delete-process force-mode-line-update message "find-dired %s finished."] 11 (#$ . 9713)])
#@63 Sort entries in *Find* buffer by file name lexicographically.
(defalias 'find-dired-sort-by-filename #[0 "\300\301\302\303\304$\207" [sort-subr nil forward-line end-of-line #[0 "\300\301`\302\"\303 \"\207" [buffer-substring-no-properties next-single-property-change dired-filename line-end-position] 4]] 5 (#$ . 10316)])
(provide 'find-dired)
Mini Shell