emacsd/elpa/helm-20191026.431/helm-find.elc

;ELC
;;; Compiled
;;; in Emacs version 26.3
;;; 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\300\302!\210\303\304\305\306\307DD\310\311\301\312\313&\210\303\314\305\306\315DD\316\311\301\312\313&\210\303\317\305\306\320DD\321\311\301\312\313&\207" [require helm-files helm-external custom-declare-variable helm-findutils-skip-boring-files funcall function #[0 "\300\207" [t] 1] "Ignore boring files in find command results." :group :type boolean helm-findutils-search-full-path #[0 "\300\207" [nil] 1] "Search in full path with shell command find when non--nil.\nI.e use the -path/ipath arguments of find instead of -name/iname." helm-find-noerrors #[0 "\300\207" [nil] 1] "Prevent showing error messages in helm buffer when non nil."] 8)
(defvar helm-find-map (byte-code "\301 \302
\"\210\303
\304\305#\210\211\207" [helm-generic-files-map make-sparse-keymap set-keymap-parent define-key "" helm-delete-backward-no-update] 5))
(defvar helm-source-findutils (helm-make-source "Find" 'helm-source-async :header-name #[257 "\211\300\301 \302R\207" [" in [" helm-default-directory "]"] 5 "\n\n(fn NAME)"] :candidates-process 'helm-find-shell-command-fn :filtered-candidate-transformer 'helm-findutils-transformer :action-transformer 'helm-transform-file-load-el :persistent-action 'helm-ff-kill-or-find-buffer-fname :action 'helm-type-file-actions :help-message 'helm-generic-file-help-message :keymap helm-find-map :candidate-number-limit 9999 :requires-pattern 3))
#@26 

(fn CANDIDATES SOURCE)
(defalias 'helm-findutils-transformer #[514 "\303\304 
\303\211\211\211\211:\203v@\262\305\306!\211\203#\211P\202%\262
!\262\307!@\262\n\203B\310\311\"\204B\312!\202C\262\313=\203U\314\315\316#B\202k;\203d\314\315\317#B\202k\314\315\320#B
B\262
A\262\202\211\237\266\206*\207" [default-directory non-essential helm-ff-transformer-show-only-basename nil helm-default-directory expand-file-name file-remote-p file-attributes string-match "[.]\\{1,2\\}$" helm-basename t propertize face helm-ff-directory helm-ff-symlink helm-ff-file] 12 (#$ . 1810)])
(defalias 'helm-find--build-cmd-line #[0 "\305\306!\210\307\310\"\206\f\311	\312\"\313
@!\311@!A\205$A@\314PC\315\n\205[\315\211:\203W@\262\316\317\"\203I\320\321\315\322$B\262\202P\323P
B\262
A\262\202,\211\237\266\203\f\203c\324\202d\325\203m\211@\202p\211A@\306\205{\326\327BD\205\205\330\327BD\331\332\333\334\335\336\337\340!\341\"\342\343%\f\"\n\"B#)\207" [default-directory helm-pattern helm-findutils-skip-boring-files completion-ignored-extensions helm-findutils-search-full-path require find-cmd file-remote-p localname split-string "\\(\\`\\| +\\)\\* +" helm-set-case-fold-search " " nil string-match "/$" replace-match "" t "*" (ipath path) (iname name) prune name not and append mapcar make-byte-code 257 "\300\301\301QD\207" vconcat vector ["*"] 5 "\n\n(fn PATTERN)"] 20])
#@114 Asynchronously fetch candidates for `helm-find'.
Additional find options can be specified after a "*"
separator.
(defalias 'helm-find-shell-command-fn #[0 "\304\211\305 \n\203\306\202\307P\310\311#\312\313\"\210\211\314\315\"\210*\207" [process-connection-type non-essential helm-find-noerrors helm-buffer nil helm-find--build-cmd-line "2> /dev/null" #1="" start-file-process-shell-command "hfind" helm-log "Find command:\n%s" set-process-sentinel #[514 "\300\301 #\210\211\302\230\203\303\304!\207\305\306\307\310\311#\"\207" [helm-process-deferred-sentinel-hook helm-default-directory "finished\n" helm-locate-update-mode-line "Find" helm-log "Error: Find %s" replace-regexp-in-string "\n" #1#] 8 "\n\n(fn PROCESS EVENT)"]] 7 (#$ . 3260)])
#@12 

(fn DIR)
(defalias 'helm-find-1 #[257 "\302
!\303\304\305\306\307\310\311\312	&)\207" [default-directory helm-file-name-case-fold-search file-name-as-directory helm :sources helm-source-findutils :buffer "*helm find*" :ff-transformer-show-only-basename nil :case-fold-search] 10 (#$ . 4023)])
#@679 Preconfigured `helm' for the find shell command.

Recursively find files whose names are matched by all specified
globbing PATTERNs under the current directory using the external
program specified in `find-program' (usually "find").  Every
input PATTERN is silently wrapped into two stars: *PATTERN*.

With prefix argument, prompt for a directory to search.

When user option `helm-findutils-search-full-path' is non-nil,
match against complete paths, otherwise, against file names
without directory part.

The (possibly empty) list of globbing PATTERNs can be followed by
the separator "*" plus any number of additional arguments that
are passed to "find" literally.

(fn ARG)
(defalias 'helm-find #[257 "\211\203\f\301\302\303!!\202
\304
!\207" [default-directory file-name-as-directory read-directory-name "DefaultDirectory: " helm-find-1] 4 (#$ . 4327) "P"])
(provide 'helm-find)