;ELC
|
;;; Compiled
|
;;; in Emacs version 26.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\300\302!\210\303\304\305\306\307DD\310\311\301\312\313&\210\303\314\305\306\315DD\316\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."] 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#BB\262A\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 (#$ . 1657)])
|
(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 \323PB\262A\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 "\303\211\304 \305\306\n#\307\310\"\210\211\311\312\"\210*\207" [process-connection-type non-essential helm-buffer nil helm-find--build-cmd-line start-file-process-shell-command "hfind" helm-log "Find command:\n%s" set-process-sentinel #[514 "\301\302 #\210\211\303\230\203* \304\305 !r\306\307\310\311\312!\313\"\314$\216\315@\316\"\210\317\320 *\207\321\322\323\324\325#\"\207" [mode-line-format helm-process-deferred-sentinel-hook helm-default-directory "finished\n" internal--before-with-selected-window helm-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord (" " mode-line-buffer-identification " " (:eval (format "L%s" (helm-candidate-number-at-point))) " " (:eval (propertize (format "[Find process finished - (%s results)]" (max (1- (count-lines (point-min) (point-max))) 0)) 'face 'helm-locate-finish))) force-mode-line-update helm-log "Error: Find %s" replace-regexp-in-string "\n" ""] 9 "\n\n(fn PROCESS EVENT)"]] 7 (#$ . 3107)])
|
#@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 (#$ . 4289)])
|
#@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 (#$ . 4593) "P"])
|
(provide 'helm-find)
|
