ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/find-dired.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 3044))
(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\203R \317\n!\320=\2031 \321\322\323!!\203L \3241D \325\n!\210\326\327!\210\330\n!0\202H \210\202R \210\202R \311\331\332 \"\210)~\210\333 \210\334\335 \210
@A\336
\337\230\203o \337\202{ \340\341!\342
\342\340\343!\342\260\344\345B@\"\203\225 \346\347\350\327B@\"\340\351!C$\202\230 B@R\352
\353Pp\"\210\354 BA\"\210\355 D\356D\357 \"\210\360D\361\362#\210\363D!\210)\364\365!\210\3665\364\367!\210\370\371\372 @EE7\373\374!\203\341 \374 \210\202\354 \364\375!\210\f\376 BC=\364\377!\210E?\334\201I \201J \261\210` F\201I
\201K \261\210\201L F`\"\210)\366\316p! G\201M G\201N \"\210\201O G\201P \"\210\201Q G!`p\223\210)\201R \211H)\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 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-args find-program find-ls-option find-exec-terminator map find-ls-subdir-switches point proc mode-line-process " " ":\n" "\n" dired-insert-set-properties set-process-filter find-dired-filter set-process-sentinel find-dired-sentinel process-mark (":%s")] 9 (#$ . 3166) (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% \3061# \307!0\202% \210\310)\207" [find get-buffer-process process-status run process-filter find-dired-filter (error) delete-process nil] 3 (#$ . 5536) nil])
#@315 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.
(defalias 'find-name-dired #[(dir pattern) "\303 \304\305\n!Q\"\207" [dir find-name-arg pattern find-dired " " shell-quote-argument] 6 (#$ . 5837) "DFind-name (directory): \nsFind-name (filename wildcard): "])
(defalias 'lookfor-dired 'find-grep-dired)
#@318 Find files in DIR matching 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 (#$ . 6412) "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!\205E r\nq\210\311\212db\210` \312
\261\210\313u\210\314\315 \316\317O\261\210\320\f`\"\210)\321\322\323!!P\324!\210\325 \210*\326\327p\")*\207" [proc inhibit-read-only buf buffer-read-only point state process-buffer t buffer-name nil "\n find " -1 " at " current-time-string 0 19 dired-insert-set-properties ":" symbol-name process-status delete-process force-mode-line-update message "find-dired %s finished." mode-line-process] 4])
(provide 'find-dired)
Kontol Shell Bypass