mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-19 a4b9172aefa91861b587831e06f55b1e19f3f3be
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
;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)