;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (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 darwin) "-dgils" "-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 #1=""] "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' produces sorted output even\non a 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 #1#] "`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 #1#] "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 #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 #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 (#$ . 4458)) (defvar find-args-history nil)#@72 History of commands passed interactively to `find-dired-with-command'. (defvar find-command-history nil (#$ . 4578))#@585 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. Collect output in the "*Find*" buffer. To kill the job before it finishes, type \[kill-find]. For more information on how to write valid find expressions for ARGS, see Info node `(find) Finding Files'. If you are not using GNU findutils (on macOS and *BSD systems), see instead the man page for "find". (fn DIR ARGS) (defalias 'find-dired #[514 "\211 \302\303\230\203\303\202\304\305!\306\306\304\307!\306\260\310 R\262\311\"\207" [find-args find-program " . " "" shell-quote-argument "(" " " ")" find-dired--escaped-ls-option find-dired-with-command] 10 (#$ . 4701) (byte-code "\301\302\303\304\305$\306\307\211\203\310\202\311#D\207" [find-args read-directory-name "Run find in directory: " nil "" t read-string "Run find (with args): " (find-args-history . 1) find-args-history] 5)])#@397 Run `find' and go into Dired mode on a buffer of the output. The user-supplied COMMAND is run after changing into DIR and should look like find . GLOBALARGS \( ARGS \) -ls The car of the variable `find-ls-option' specifies what to use in place of "-ls" as the starting input. Collect output in the "*Find*" buffer. To kill the job before it finishes, type \[kill-find]. (fn DIR COMMAND) (defalias 'find-dired-with-command #[514 "C\211\306\307\242!!\240\210\310\242!\204\311\312\242\"\210\313\314\315!!\210\316p!\211\203W\317!\320=\2037\321\322\323!!\203Q\3241L\325!\210\326\327!\210\330!0\266\202X\266\202X\311\331\332 \"\210\210~\210\333 \210\334\335 \210\211\242\336\332 p#\337!`p\223\210\340\341\"\210\342\343\"\266\344\242 A\"\210\345 \346\347 \"\210\350\351\352#\210\353!\266\354\304!\210\355\354\305!\210\356\357#\360\361!\203\263\361 \210\202\272\n\362 BC:\354\363!\210;3\334\364\242\365\261\210<\203\323\366 \210`\364\367\261\210\370`\"\266\355\371\211=)\207" [dired-buffers buffer-read-only default-directory find-ls-option dired-sort-inhibit revert-buffer-function 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 start-file-process-shell-command process-mark set-process-filter find-dired-filter set-process-sentinel find-dired-sentinel dired-mode make-sparse-keymap set-keymap-parent current-local-map define-key " " kill-find use-local-map make-local-variable t make-closure #[514 "\302\301\242\300\"\207" [V0 V1 find-dired-with-command] 5 "\n\n(fn IGNORE-AUTO NOCONFIRM)"] fboundp dired-simple-subdir-alist point-min-marker dired-subdir-switches " " ":\n" dired--make-directory-clickable "\n" dired-insert-set-properties (":%s") dired-subdir-alist find-ls-subdir-switches dired-make-directory-clickable mode-line-process] 8 (#$ . 5777) (byte-code "\301\302\303\304\305$\306\307\310\311 QGT\312\\B\313#D\207" [find-program read-directory-name "Run find in directory: " nil "" t read-string "Run find command: " " . \\( \\) " find-dired--escaped-ls-option 6 find-command-history] 6)])#@65 Return the car of `find-ls-option' escaped for a shell command. (defalias 'find-dired--escaped-ls-option #[0 "\302\303@\"\203\304\305\306\307@\"\310\311! $\207@\207" [find-ls-option find-exec-terminator string-match "\\`\\(.*\\) {} \\(\\\\;\\|\\+\\)\\'" format "%s %s %s" match-string 1 shell-quote-argument "{}"] 5 (#$ . 8201)])#@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\207\210\307\207" [get-buffer-process process-status run process-filter find-dired-filter (error) delete-process nil] 3 (#$ . 8541) nil])#@325 Search DIR recursively for files matching the globbing 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 (#$ . 8833) "DFind-name (directory): \nsFind-name (filename wildcard): "]) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias lookfor-dired find-grep-dired nil make-obsolete "29.1"] 4)#@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 (#$ . 9476) "DFind-grep (directory): \nsFind-grep (grep regexp): "])#@20 (fn PROC STRING) (defalias 'find-dired-filter #[514 "\302!\303\304!\203sr\211q\210\212\214~\210\305d\211b\210c\210\211b\210\306\307!\204)\310y\210\306\307!\2038\311c\210\310y\210\202)\211\312Zb\210\313\314\305\303#\203N``\315Z|\210\202=db\210\316\317\320!\303#\205l\321\320!`T\"\210\320!`T\305\223)\266\202+\202v\322!)\207" [inhibit-read-only buffer-read-only process-buffer t buffer-name nil looking-at "^" 1 " " 3 search-forward " ./" 2 search-backward "\n" process-mark dired-insert-set-properties delete-process] 9 (#$ . 10118)])#@56 Sentinel for \[find-dired] processes. (fn PROC STATE) (defalias 'find-dired-sentinel #[514 "\303!\304!\203Jr\211q\210\305\212\214~\210 \203\"`d\306Z}\210 \210~\210d\211b\210\307\310\311O\312\313 \310\314O\261\210\315`\")\266\316\317\320!\"\321!\210\322 +\207\323\324\"\207" [inhibit-read-only find-dired-refine-function mode-line-process process-buffer buffer-name t 2 "\n find " 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."] 10 (#$ . 10680)])#@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\"\211\205 \302\303 \"\207" [next-single-property-change dired-filename buffer-substring-no-properties line-end-position] 4]] 5 (#$ . 11263)]) (provide 'find-dired)