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

Chizi123
2018-11-17 5cb5f70b1872a757e93ea333b0e2dca50c6c8957
commit | author | age
5cb5f7 1 ;ELC
C 2 ;;; Compiled
3 ;;; in Emacs version 26.1
4 ;;; with all optimizations.
5
6 ;;; This file uses dynamic docstrings, first added in Emacs 19.29.
7
8 ;;; This file does not contain utf-8 non-ASCII characters,
9 ;;; and so can be loaded in Emacs versions earlier than 23.
10
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13
14
15 (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)
16 (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))
17 (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))
18 #@26 
19
20 (fn CANDIDATES SOURCE)
21 (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)])
22 (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])
23 #@114 Asynchronously fetch candidates for `helm-find'.
24 Additional find options can be specified after a "*"
25 separator.
26 (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)])
27 #@12 
28
29 (fn DIR)
30 (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)])
31 #@679 Preconfigured `helm' for the find shell command.
32
33 Recursively find files whose names are matched by all specified
34 globbing PATTERNs under the current directory using the external
35 program specified in `find-program' (usually "find").  Every
36 input PATTERN is silently wrapped into two stars: *PATTERN*.
37
38 With prefix argument, prompt for a directory to search.
39
40 When user option `helm-findutils-search-full-path' is non-nil,
41 match against complete paths, otherwise, against file names
42 without directory part.
43
44 The (possibly empty) list of globbing PATTERNs can be followed by
45 the separator "*" plus any number of additional arguments that
46 are passed to "find" literally.
47
48 (fn ARG)
49 (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"])
50 (provide 'helm-find)