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

Chizi123
2018-11-19 a4b9172aefa91861b587831e06f55b1e19f3f3be
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\300\303!\210\304\305\306\307\310\302%\210\311\312\313\314\315DD\316\317\320\310\305&\210\311\321\313\314\322DD\323\310\305\317\324&\210\325\326\327\306#\210\330\211\203Z\211@\326N\203S\327N\204S\331\327\326N#\210A\266\202\2029\210\332\326\327\333#\210\311\327\313\314\334DD\335\310\305\317\336&\210\311\337\313\314\340DD\341\310\305\317\342&\210\311\343\313\314\344DD\345\310\305\317\336&\210\311\346\313\314\347DD\350\310\305\317\351&\210\311\352\313\314\353DD\354\310\305\317\314&\207" [require cl-lib helm helm-help custom-declare-group helm-utils nil "Utilities routines for Helm." :group custom-declare-variable helm-su-or-sudo funcall function #[0 "\300\207" [#1="sudo"] 1 #1#] "What command to use for root access." :type string helm-default-kbsize #[0 "\300\207" [1024.0] 1] "Default Kbsize to use for showing files size.\nIt is a float, usually 1024.0 but could be 1000.0 on some systems." float defvaralias helm-highlight-number-lines-around-point helm-highlight-matches-around-point-max-lines (saved-value saved-variable-comment) put make-obsolete-variable "20160119" #[0 "\300\207" [15] 1] "Number of lines around point where matched items are highlighted." integer helm-buffers-to-resize-on-pa #[0 "\300\207" [nil] 1] "A list of helm buffers where the helm-window should be reduced on persistent actions." (repeat (choice string)) helm-resize-on-pa-text-height #[0 "\300\207" [12] 1] "The size of the helm-window when resizing on persistent action." helm-sources-using-help-echo-popup #[0 "\300\207" [("Moccur" "Imenu in all buffers" "Ack-Grep" "AG" "RG" "Gid" "Git-Grep")] 1] "Show the buffer name or the filename in a popup at selection." (repeat (choice string)) helm-html-decode-entities-function #[0 "\300\207" [helm-html-decode-entities-string] 1] "Function used to decode html entities in html bookmarks.\nHelm comes by default with `helm-html-decode-entities-string', if you need something\nmore sophisticated you can use `w3m-decode-entities-string' if available.\n\nIn emacs itself org-entities seems broken and `xml-substitute-numeric-entities'\nsupports only numeric entities."] 8)
16 #@511 Run before jumping to line.
17 This hook run when jumping from `helm-goto-line', `helm-etags-default-action',
18 and `helm-imenu-default-action'.
19 This allow you to retrieve a previous position after using the different helm
20 tools for searching (etags, grep, gid, (m)occur etc...).
21 By default positions are added to `mark-ring' you can also add to register
22 by using instead (or adding) `helm-save-pos-to-register-before-jump'.
23 In this case last position is added to the register
24 `helm-save-pos-before-jump-register'.
25 (defvar helm-goto-line-before-hook '(helm-save-current-pos-to-mark-ring) (#$ . 2571))
26 #@75 The register where `helm-save-pos-to-register-before-jump' save position.
27 (defvar helm-save-pos-before-jump-register 95 (#$ . 3173))
28 #@46 Table of html character entities and values.
29 (defconst helm-html-entities-alist '((""" . 34) (">" . 62) ("<" . 60) ("&" . 38) ("€" . 8364) ("Ÿ" . 89) ("¡" . 161) ("¢" . 162) ("£" . 163) ("¤" . 164) ("&yen" . 165) ("¦" . 166) ("§" . 167) ("¨" . 32) ("©" . 169) ("ª" . 97) ("«" . 171) ("¬" . 172) ("&masr;" . 174) ("°" . 176) ("±" . 177) ("²" . 50) ("³" . 51) ("´" . 39) ("µ" . 956) ("¶" . 182) ("·" . 183) ("¸" . 32) ("¹" . 49) ("º" . 111) ("»" . 187) ("¼" . 49) ("½" . 49) ("¾" . 51) ("¿" . 191) ("À" . 192) ("Á" . 193) ("Â" . 194) ("Ã" . 195) ("Ä" . 196) ("Å" . 197) ("&Aelig" . 198) ("Ç" . 199) ("È" . 200) ("É" . 201) ("Ê" . 202) ("Ë" . 203) ("Ì" . 204) ("Í" . 205) ("Î" . 206) ("Ï" . 207) ("ð" . 208) ("Ñ" . 209) ("Ò" . 210) ("Ó" . 211) ("Ô" . 212) ("Õ" . 213) ("Ö" . 214) ("×" . 215) ("Ø" . 216) ("Ù" . 217) ("Ú" . 218) ("Û" . 219) ("Ü" . 220) ("Ý" . 221) ("þ" . 222) ("ß" . 223) ("à" . 224) ("á" . 225) ("â" . 226) ("ã" . 227) ("ä" . 228) ("å" . 229) ("æ" . 230) ("ç" . 231) ("è" . 232) ("é" . 233) ("ê" . 234) ("ë" . 235) ("ì" . 236) ("í" . 237) ("î" . 238) ("ï" . 239) ("ð" . 240) ("ñ" . 241) ("ò" . 242) ("ó" . 243) ("ô" . 244) ("õ" . 245) ("ö" . 246) ("÷" . 247) ("ø" . 248) ("ù" . 249) ("ú" . 250) ("û" . 251) ("ü" . 252) ("ý" . 253) ("þ" . 254) ("ÿ" . 255) ("®" . 174) ("­" . 173)) (#$ . 3312))
30 #@49 Hook that run at end of `helm-find-many-files'.
31 (defvar helm-find-many-files-after-hook nil (#$ . 5209))
32 (byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\311\312\313\314\315DD\316\304\317\320\321&\210\311\322\313\314\323DD\324\304\317\320\325&\207" [custom-declare-face helm-selection-line ((t (:inherit highlight :distant-foreground "black"))) "Face used in the `helm-current-buffer' when jumping to candidate." :group helm-faces helm-match-item ((t (:inherit isearch))) "Face used to highlight item matched in a selected line." custom-declare-variable helm-window-prefer-horizontal-split funcall function #[0 "\300\207" [nil] 1] "Maybe switch to other window vertically when non nil.\n\nPossible values are t, nil and `decide'.\n\nWhen t switch vertically.\nWhen nil switch horizontally.\nWhen `decide' try to guess if it is possible to switch vertically\naccording to the setting of `split-width-threshold' and the size of\nthe window from where splitting is done.\n\nNote that when using `decide' and `split-width-threshold' is nil, the\nbehavior is the same that with a nil value." helm-utils :type (choice (const :tag "Split window vertically" t) (const :tag "Split window horizontally" nil) (symbol :tag "Guess how to split window" 'decide)) helm-window-show-buffers-function #[0 "\300\207" [helm-window-default-split-fn] 1] "The default function to use when opening several buffers at once.\nIt is typically used to rearrange windows." (choice (function :tag "Split windows vertically or horizontally" helm-window-default-split-fn) (function :tag "Split in alternate windows" helm-window-alternate-split-fn) (function :tag "Split windows in mosaic" helm-window-mosaic-fn))] 8)
33 #@278 Show BUFFERS.
34
35 If more than one buffer marked switch to these buffers in separate windows.
36 If OTHER-WINDOW is non-nil, keep current buffer and switch to others buffers
37 in separate windows.
38 If a prefix arg is given split windows vertically.
39
40 (fn BUFFERS &optional OTHER-WINDOW)
41 (defalias 'helm-window-show-buffers #[513 "\301 A\203\n\302\202 \303A\203\205\"\202*\203&\211@!\202*\304@!\207" [helm-window-show-buffers-function window-list switch-to-buffer-other-window helm-window-other-window switch-to-buffer] 6 (#$ . 6925)])
42 #@292 Split windows in one direction and balance them.
43
44 Direction can be controlled via `helm-window-prefer-horizontal-split'.
45 If a prefix arg is given split windows the other direction.
46 This function is suitable for `helm-window-show-buffers-function'.
47
48 (fn CANDIDATES &optional OTHER-WINDOW-FN)
49 (defalias 'helm-window-default-split-fn #[513 "\211\203\f\211@!\210\202\300@!\210\301 r\302\303\304\305\306!\307\"\310$\216\311A\311\312\311:\203]@\262\203?\313\314!\262\311\211\262\202@\312\203]\3151O\316\317\"0\202U\312\262\311\262\210A\262\202&\266\204*\207" [switch-to-buffer internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 nil t message "Too many buffers to visit simultaneously" (error) helm-window-other-window balance] 11 (#$ . 7474)])
50 #@307 Split windows horizontally and vertically in alternate fashion.
51
52 Direction can be controlled via `helm-window-prefer-horizontal-split'.
53 If a prefix arg is given split windows the other direction.
54 This function is suitable for `helm-window-show-buffers-function'.
55
56 (fn CANDIDATES &optional OTHER-WINDOW-FN)
57 (defalias 'helm-window-alternate-split-fn #[513 "\211\203\f\211@!\210\202\301@!\210\302\303 r\304\305\306\307\310!\311\"\312$\216\302A\302\313\302:\203h@\262\203@\314\315!\262\302\211\262\202A\313\203h\3161Z\317!\210?\211\262)0\202`\313\262\302\262\210A\262\202'\266\204*\262\207" [helm-current-prefix-arg switch-to-buffer nil internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 t message "Too many buffers to visit simultaneously" (error) helm-window-other-window] 11 (#$ . 8320)])
58 #@406 Make an as-square-as-possible window mosaic of the CANDIDATES buffers.
59
60 If rectangular, the long side is in the direction given by
61 `helm-window-prefer-horizontal-split': if non-nil, it is horizontal, vertical
62 otherwise.
63 If OTHER-WINDOW-FN is non-nil, current windows are included in the mosaic.
64 This function is suitable for `helm-window-show-buffers-function'.
65
66 (fn CANDIDATES &optional OTHER-WINDOW-FN)
67 (defalias 'helm-window-mosaic-fn #[513 "\211\203\304\305\306\307 \"\"\262\310 \210\311=\203%    \247\205&\312\313 !    Y\202&\314\211\211\211\211\315\316G!!\262G\211S_X\203ES\202F\262\317 \320 \n \203`\320 \262\317 \262 \262\n\262    \245]\262\245]\262\245\245_ GV\203\215\321\322!\210\211S\f\233\314\241\210\266\205\344GV\203\244\323\314?#\262\324\211A\262    \242!\210SG^\325\211W\203\327\211\326\323\314#!\210\324\n\211A\262\f\242!\266\211T\262\202\265\266\211\203\217\326!\210\202\217)\207" [helm-window-prefer-horizontal-split split-width-threshold window-min-height window-min-width append mapcar window-buffer window-list delete-other-windows decide window-width selected-window nil ceiling sqrt frame-height frame-width message "Too many buffers to visit simultaneously" split-window switch-to-buffer 0 select-window] 15 (#$ . 9223)])
68 #@266 Switch to BUFFER-OR-NAME in other window.
69 Direction can be controlled via `helm-window-prefer-horizontal-split'.
70 If a prefix arg is given split windows the other direction.
71 When argument BALANCE is provided `balance-windows'.
72
73 (fn BUFFER-OR-NAME &optional BALANCE)
74 (defalias 'helm-window-other-window #[513 "\303=\203    \247\205\304\305 !    Y\202\211\203\n?\202 \n\306\307\310\211#!\210\203/\311 \210\312!)\207" [helm-window-prefer-horizontal-split split-width-threshold helm-current-prefix-arg decide window-width selected-window select-window split-window nil balance-windows switch-to-buffer] 9 (#$ . 10541)])
75 #@109 Check if BUFFER is narrowed.
76 Default is `helm-current-buffer'.
77
78 (fn &optional (BUFFER helm-current-buffer))
79 (defalias 'helm-current-buffer-narrowed-p #[128 "\211\203 \211A\262\242\202\203\301\302\303GTD\"\210r\211q\210ed\304 \305U?\206/TU?\266\203)\207" [helm-current-buffer signal wrong-number-of-arguments helm-current-buffer-narrowed-p buffer-size 1] 7 (#$ . 11173)])
80 #@47 Go to char, revealing if necessary.
81
82 (fn LOC)
83 (defalias 'helm-goto-char #[257 "\302\303!\210\211b\210\304=\203\305\202\306\301!\205    \205\307\3101*\211\205&\211 0\202,\210\311\207" [major-mode outline-minor-mode require org org-mode org-reveal boundp #[0 "\300\301!\207" [outline-flag-subtree nil] 2] (error) nil] 3 (#$ . 11564)])
84 #@129 Goto LINENO opening only outline headline if needed.
85 Animation is used unless NOANIM is non--nil.
86
87 (fn LINENO &optional NOANIM)
88 (defalias 'helm-goto-line #[513 "\303\304!\210\305 \210\204\"r\306    !\203    \206p\211q\210\n\204!`)eb\210\307\310!!\210\211?\2052\311 \207" [helm-alive-p helm-current-buffer helm-yank-point helm-log-run-hook helm-goto-line-before-hook helm-match-line-cleanup buffer-live-p helm-goto-char point-at-bol helm-highlight-current-line] 5 (#$ . 11913)])
89 #@123 Save current buffer position to `helm-save-pos-before-jump-register'.
90 To use this add it to `helm-goto-line-before-hook'.
91 (defalias 'helm-save-pos-to-register-before-jump #[0 "r\303!\203 \206p\211q\210    ?\205\304\n!)\207" [helm-current-buffer helm-in-persistent-action helm-save-pos-before-jump-register buffer-live-p point-to-register] 2 (#$ . 12403)])
92 #@96 Save current buffer position to mark ring.
93 To use this add it to `helm-goto-line-before-hook'.
94 (defalias 'helm-save-current-pos-to-mark-ring #[0 "r\302!\203 \206p\211q\210    ?\205\303 `\304\223\210\305`\306\")\207" [helm-current-buffer helm-in-persistent-action buffer-live-p mark-marker nil push-mark nomsg] 3 (#$ . 12770)])
95 #@148 Show only current source of this helm session with all its candidates.
96 With a numeric prefix arg show only the ARG number of candidates.
97
98 (fn ARG)
99 (defalias 'helm-show-all-in-this-source-only #[257 "\203;\303\304 !r\305\306\307\310\311!\312\"\313$\216\314@\315\"\210\316 \203'\317\316 !\206(    \320V\2050\321\322\323\324 \"C!,\207\325\326!\207" [helm-alive-p default-directory helm-candidate-number-limit 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 helm-default-directory file-name-as-directory 1 helm-set-source-filter assoc-default name helm-get-current-source error "Running helm command outside of context"] 8 (#$ . 13109) "p"])
100 (put 'helm-show-all-in-this-source-only 'helm-only t)
101 #@68 Display all sources previously hidden by `helm-set-source-filter'.
102 (defalias 'helm-display-all-sources #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-set-source-filter nil error "Running helm command outside of context"] 2 (#$ . 13929) nil])
103 (put 'helm-display-all-sources 'helm-only t)
104 #@56 Return the list of sources name for this helm session.
105 (defalias 'helm-displaying-source-names #[0 "rq\210eb\210\301\211\302`\303\"\211\262\203&b\210\304\305 \306 \"B\262\307y\210\202    \211\237\266\202)\207" [helm-buffer nil next-single-property-change helm-header buffer-substring-no-properties point-at-bol point-at-eol 1] 5 (#$ . 14234)])
106 #@187 Add `helm-buffer' to `winner-boring-buffers' when quitting/exiting helm.
107 Add this function to `helm-cleanup-hook' when you don't want to see helm buffers
108 after running winner-undo/redo.
109 (defalias 'helm-handle-winner-boring-buffers #[0 "\302\303!\210    \235\203    \202    B\211\207" [helm-buffer winner-boring-buffers require winner] 2 (#$ . 14589)])
110 (add-hook 'helm-cleanup-hook 'helm-handle-winner-boring-buffers)
111 #@124 Drop into `helm-find-files' from `helm'.
112 If current selection is a buffer or a file, `helm-find-files'
113 from its directory.
114 (defalias 'helm-quit-and-find-file #[0 "\203B\306\307!\210\306\310!\210\311\312\313 \211:\205\314A!;\205!\315!;\2050\211?\2050\316\317\320#\211\2058\321    \"\322!\205A\323!\211\205H\324!\262\325\n!\206Q \203\206\325!\206>\326\f\"@\206>rq\210 )\327=\203{%\203{\330%!\206>rq\210\330 !)\202>\203\230\325\331A!!\206>\211\202>\203\302\332!\211\203\272&\203\264\333&\"\203\264\211\202\275\330!\202\275\330 !\262\202>;\203\335\334!\204\326\335!\203\335\330!\202>\203\357\335@!\203\357\330@!\202>\203r\323@!q\210\330\325 \206 !)\202>;\203&\203\333&\"\203\202>'\203;\336'!\203;\337'!\210\340\341\342\"\210\330!\202>\330!\266\207\"\207\343\344!\207" [helm-alive-p bookmark-alist helm-current-buffer default-directory dired-buffers major-mode require helm-grep helm-elisp helm-run-after-exit #[257 "\303\211\304!\203!\305\306!\307\310\n\203\311!\202!P\"\202$\305!*\207" [helm-actions-inherit-frame-settings helm-execute-action-at-once-if-one helm-ff-transformer-show-only-basename nil file-exists-p helm-find-files-1 file-name-directory "^" regexp-quote helm-basename] 7 "\n\n(fn F)"] helm-get-selection markerp helm-grep-split-line replace-regexp-in-string "\\`\\*" "" assoc bufferp get-buffer buffer-name buffer-file-name rassoc org-agenda-mode expand-file-name marker-buffer bookmark-get-filename string-match file-remote-p file-exists-p overlayp delete-overlay remove-hook helm-move-selection-after-hook helm-show-completion error "Running helm command outside of context" org-directory helm--url-regexp helm-show-completion-overlay] 13 (#$ . 15011) nil])
115 (put 'helm-quit-and-find-file 'helm-only t)
116 #@176 Sort predicate function for helm candidates.
117 Args S1 and S2 can be single or (display . real) candidates,
118 that is sorting is done against real value of candidate.
119
120 (fn S1 S2)
121 (defalias 'helm-generic-sort-fn #[514 "\301!\302\303Q\302P\304!:\203A\202:\203(A\202*\305\211                &    \n\n\n\n&\306\n!\307U\204\\\307U\203b\211\307U\203b\231\202sU\203pGGW\202sV\207" [helm-pattern regexp-quote "\\_<" "\\_>" helm-mm-split-pattern #[1542 "\300\301P\"\203\302\202\303\300\"\203\304\202\253\300\305\"\203^\300\306\307@!P\"\203^A\310\311:\203P@\262\300\n\"\211\262\203PA\262\2025\211\205U\311\266\203\203^\312\202\253\300\305\"\203\222\310\311:\203\204@\262\300\n\"\211\262\203\204A\262\202i\211\205\211\311\266\203\203\222\313\202\253\300\"\203\236\314\202\253\300\"\203\252\302\202\253\303\\\207" [string-match "\\`" 1 0 5 " " "\\_<" regexp-quote nil t 4 3 2] 13 "\n\n(fn QPATTERN STR R1 R2 R3 LST)"] string-width 0] 18 (#$ . 16849)])
122 #@308 Return a string showing SIZE of a file in human readable form.
123 SIZE can be an integer or a float depending it's value.
124 `file-attributes' will take care of that to avoid overflow error.
125 KBSIZE is a floating point number, defaulting to `helm-default-kbsize'.
126
127 (fn SIZE &optional (KBSIZE helm-default-kbsize))
128 (defalias 'helm-file-human-size #[385 "\211\203 \211A\262\242\202\203\301\302\303\304G\\D\"\210\305B\306\307:\203@@\262AY\203@\211A\245B\262A\262\202!\305@\211\232\204Z\310=\204Z<\203b\211\235\203b\311\312    \"\202\204\310\211\232\204{\310=\204{<\205\202\211\235\205\202\311\313A#\266\202\266\202\266\203\207" [helm-default-kbsize signal wrong-number-of-arguments helm-file-human-size 2 "B" ("k" "M" "G" "T" "P" "E" "Z" "Y") nil t format "%s" "%.1f%s"] 14 (#$ . 17896)])
129 #@1502 Return `file-attributes' elements of FILE separately according to key value.
130 Availables keys are:
131 - TYPE: Same as nth 0 `files-attributes' if STRING is nil
132         otherwise return either symlink, directory or file (default).
133 - LINKS: See nth 1 `files-attributes'.
134 - UID: See nth 2 `files-attributes'.
135 - GID: See nth 3 `files-attributes'.
136 - ACCESS-TIME: See nth 4 `files-attributes', however format time
137                when STRING is non--nil (the default).
138 - MODIF-TIME: See nth 5 `files-attributes', same as above.
139 - STATUS: See nth 6 `files-attributes', same as above.
140 - SIZE: See nth 7 `files-attributes'.
141 - MODE: See nth 8 `files-attributes'.
142 - GID-CHANGE: See nth 9 `files-attributes'.
143 - INODE: See nth 10 `files-attributes'.
144 - DEVICE-NUM: See nth 11 `files-attributes'.
145 - DIRED: A line similar to what 'ls -l' return.
146 - HUMAN-SIZE: The size in human form, see `helm-file-human-size'.
147 - MODE-TYPE, mode-owner,mode-group, mode-other: Split what
148   nth 7 `files-attributes' return in four categories.
149 - STRING: When non--nil (default) `helm-file-attributes' return
150           more friendly values.
151 If you want the same behavior as `files-attributes' ,
152 (but with return values in proplist) use a nil value for STRING.
153 However when STRING is non--nil, time and type value are different from what
154 you have in `file-attributes'.
155
156 (fn FILE &key TYPE LINKS UID GID ACCESS-TIME MODIF-TIME STATUS SIZE MODE GID-CHANGE INODE DEVICE-NUM DIRED HUMAN-SIZE MODE-TYPE MODE-OWNER MODE-GROUP MODE-OTHER (STRING t))
157 (defalias 'helm-file-attributes #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300    \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@\300\316\"A@\300\317\"A@\300\320\"A@\300\321\"A@\300\322\"A@\300\323\"\206\202\324A@\211\203\261\211@\325>\203\231\211AA\262\202\206\326>A@\203\250\327\262\202\206\330\331@\"\210\202\206\210\332\"\211\205\233\211\211G\333U\203\314\211A\262\242\202\323\334\335\327GD\"\211A\262\242\211A\262\242\211A\262\242\211A\262\242\211A\262\242\211A\262\242\211A\262    \242\211A\262\n\242    \211A\262 \242\n\211A\262\f\242 @\301\2034\f;\203'\336\2026\f\2030\337\2026\340\2026\f\302 \303\304\305\203M\341\342\"\202O\306\203]\341\342\"\202_\307\203m\341\342\"\202o\310\311\312\313\314\257\266\215\343\344\311\"!\203\224\344\301\"\202\231\203\240\344\302\"\202\231\203\254\344\303\"\202\231\203\270\344\304\"\202\231\203\304\344\305\"\202\231\203\320\344\306\"\202\231\203\334\344\307\"\202\231\203\350\344\310\"\202\231 \203\364\344\311\"\202\231\f\203\344\312\"\202\231 \203\f\344\313\"\202\231\n\203\344\314\"\202\231    \203Y\343\344\311\"\345\"\346\347\344\302\"!\346\344\303\"\350\344\304\"\346\203G\351\344 \310\"!\202N\352\344 \310\"!\346\344\f\306\"\260 \202\231\203g\351\344\310\"!\202\231\203s\344\317\"\202\231\203\344\353\"\202\231\203\212\344\354\"\202\231\203\225\344\355\"\202\231\356\"\266\202\262\207" [plist-member :type :links :uid :gid :access-time :modif-time :status :size :mode :gid-change :inode :device-num :dired :human-size :mode-type :mode-owner :mode-group :mode-other :string (nil t) (:type :links :uid :gid :access-time :modif-time :status :size :mode :gid-change :inode :device-num :dired :human-size :mode-type :mode-owner :mode-group :mode-other :string :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :links :uid :gid :access-time :modif-time :status :size :mode :gid-change :inode :device-num :dired :human-size :mode-type :mode-owner :mode-group :mode-other :string)" file-attributes 12 signal wrong-number-of-arguments "symlink" "directory" "file" format-time-string "%Y-%m-%d %R" helm-split-mode-file-attributes cl-getf t " " number-to-string ":" helm-file-human-size int-to-string :user :group :other append] 59 (#$ . 18727)])
158 #@139 Split mode file attributes STR into a proplist.
159 If STRING is non--nil return instead a space separated string.
160
161 (fn STR &optional STRING)
162 (defalias 'helm-split-mode-file-attributes #[513 "\300\301O\301\302O\211\303\302\301\304\211\211T\211\262GW\203_H\262\305X\2030\306!P\262\305V\203D\307X\203D\306!P\262\307V\203X\310X\203X\211\306!P\262T\262\202    \203q\311\312\nF\313#\202~\314    \315\316\317\257\207" [0 1 nil -1 "" 3 string 6 9 mapconcat identity " " :mode-type :user :group :other] 19 (#$ . 22745)])
163 #@86 Same as `dired-format-columns-of-files'.
164 Inlined here for compatibility.
165
166 (fn FILES)
167 (defalias 'helm-format-columns-of-files #[257 "`\300!\210\301`\302\303$\207" [completion--insert-strings put-text-property mouse-face nil] 7 (#$ . 23305)])
168 #@45 
169
170 (fn BUFFER-OR-NAME CANDIDATES &rest BODY)
171 (defalias 'with-helm-display-marked-candidates '(macro . #[642 "\300\301!\300\302!\303\304DD\305\306\307\310\257\311\312DE\313\314\315\316    \317BBE\320    BE\321\322EEF\207" [cl-gensym "buffer" "window" let* temp-buffer-window-setup (helm-always-two-windows t) (helm-split-window-default-side (if (eq helm-split-window-default-side 'same) 'below helm-split-window-default-side)) helm-split-window-inside-p helm-reuse-last-window-split-state with-current-buffer helm-format-columns-of-files unwind-protect with-selected-window setq temp-buffer-window-show ('(display-buffer-below-selected (window-height . fit-window-to-buffer))) progn quit-window 'kill] 15 (#$ . 23554)]))
172 (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put with-helm-display-marked-candidates lisp-indent-function 0 put edebug-form-spec t] 5)
173 (defvar helm-match-line-overlay nil)
174 (defvar helm--match-item-overlays nil)
175 #@77 Highlight and underline current position
176
177 (fn &optional START END BUF FACE)
178 (defalias 'helm-highlight-current-line #[1024 "\206\306 \206 \307 T\310\211E\203\311 \202    \n\204+\312\313\"\2021\312\314\n#\210\315\n\316\206:\317#\210\203\356 \203J \320U\203S\262\262\202f\212 [y\210\321 )\262\212 y\210\321 )\262\3222\355\310\323\324\325r\326 q\210\327\330 \236)\203\201\331\f!\202\202\f!\"\310:\205\352@\262\212b\210\3321\255 \203\243\333\334#\202\251\335\334#0\202\260\310\262\203\342\320\224\320\225U\203\305\336\322\310\"\210\202\335\313\"\211\262#B#\315\316\337#\210\315\340\341#\210\266\202\222)A\262\202\205\266\2030\210\342 )\207" [helm-alive-p case-fold-search helm-match-line-overlay helm-highlight-matches-around-point-max-lines helm-input helm-migemo-mode line-beginning-position line-end-position nil helm-set-case-fold-search apply make-overlay move-overlay overlay-put face helm-selection-line 0 point-at-bol empty-line helm-remove-if-match "\\`!" helm-mm-split-pattern helm-buffer-get pcre helm-get-current-source helm--translate-pcre-to-elisp (invalid-regexp) helm-mm-migemo-forward t re-search-forward throw helm-match-item priority 1 recenter helm--match-item-overlays] 18 (#$ . 24516)])
179 #@98 Should translate pcre REGEXP to elisp regexp.
180 Assume regexp is a pcre based regexp.
181
182 (fn REGEXP)
183 (defalias 'helm--translate-pcre-to-elisp #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\311\261\210eb\210\212\312\211\203]\313\314\315\312#\205-\316\317!\211\203V\317\224\320\2069`Sf\321\"\203H\211S|\210\202R\322\323P\312\211\315\317%\210\210\202Y\315\262\210\202\210)\312\211\203\207\313\324\315\312#\205o\316\317!\211\203\200\322\325P\312\211\315\317%\210\202\203\315\262\210\202`\210eTdS{*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 " " t re-search-forward "\\([(){}|]\\)" nil match-string 1 eql 92 replace-match "\\" "\\S\\?\\(\\s\\[sS]\\)[^-]" "-"] 11 (#$ . 25793)])
184 (defalias 'helm-match-line-cleanup #[0 "\203\n\302!\210\303    \205\304\302    \"\207" [helm-match-line-overlay helm--match-item-overlays delete-overlay nil mapc] 3])
185 (defalias 'helm-match-line-cleanup-maybe #[0 "\300 \205\301 \207" [helm-empty-buffer-p helm-match-line-cleanup] 1])
186 (defalias 'helm-match-line-update #[0 "\205\n\301!\210\302 \207" [helm-match-line-overlay delete-overlay helm-highlight-current-line] 2])
187 (defalias 'helm-persistent-autoresize-hook #[0 "\205    \235\205\n\304=\205\305\306  \"\207" [helm-buffers-to-resize-on-pa helm-buffer helm-split-window-state helm-resize-on-pa-text-height vertical set-window-text-height helm-window] 3])
188 (defalias 'helm-match-line-cleanup-pulse #[0 "\300\301\302\303#\207" [run-with-timer 0.3 nil helm-match-line-cleanup] 4])
189 (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\300\303\311\"\207" [add-hook helm-after-update-hook helm-match-line-cleanup-maybe helm-after-persistent-action-hook helm-persistent-autoresize-hook helm-cleanup-hook helm-match-line-cleanup helm-after-action-hook helm-match-line-cleanup-pulse helm-match-line-update] 3)
190 (defvar helm--show-help-echo-timer nil)
191 (defalias 'helm-cancel-help-echo-timer #[0 "\205 \301!\210\302\211\207" [helm--show-help-echo-timer cancel-timer nil] 2])
192 (defalias 'helm-maybe-show-help-echo #[0 "\203\n\304!\210\305    \205#\n\205#\306\307\310 \" \235\205#\311\312\305\313#\211\207" [helm--show-help-echo-timer helm-alive-p helm-popup-tip-mode helm-sources-using-help-echo-popup cancel-timer nil assoc-default name helm-get-current-source run-with-timer 1 #[0 "\300 r\301\302\303\304\305!\306\"\307$\216\310\311 !r\301\302\303\304\305!\312\"\307$\216\313@\314\"\210\315\316 \317\"\211\205D\320\321\322\323\324\325#!P\326\327\330\212\331 \210`)%\262*\262*\207" [internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 internal--before-with-selected-window helm-window [internal--after-with-selected-window] select-window norecord get-text-property point-at-bol help-echo popup-tip " " abbreviate-file-name replace-regexp-in-string "\n.*" "" :around nil :point end-of-visual-line] 10]] 4])
193 (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable helm-popup-tip-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Helm-Popup-Tip mode is enabled.\nSee the `helm-popup-tip-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `helm-popup-tip-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group helm-popup-tip :type boolean] 12)
194 #@80 Show help-echo informations in a popup tip at end of line.
195
196 (fn &optional ARG)
197 (defalias 'helm-popup-tip-mode #[256 "\301 \302\300\303=\203\304\300!?\202\305!\306V\"\210\307\310!\210\203-\311\312\313\"\210\311\314\315\"\210\2027\316\312\313\"\210\316\314\315\"\210\317\320\304\300!\203C\321\202D\322\"\210\323\324!\203n\325\300!\210\301 \203\\\211\301 \232\203n\326\327\330\304\300!\203i\331\202j\332#\266\210\333 \210\304\300!\207" [helm-popup-tip-mode current-message set-default toggle default-value prefix-numeric-value 0 require popup add-hook helm-move-selection-after-hook helm-maybe-show-help-echo helm-cleanup-hook helm-cancel-help-echo-timer remove-hook run-hooks helm-popup-tip-mode-hook helm-popup-tip-mode-on-hook helm-popup-tip-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Helm-Popup-Tip mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 29379) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
198 (defvar helm-popup-tip-mode-hook nil)
199 (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [helm-popup-tip-mode-map helm-popup-tip-mode-hook variable-documentation put "Hook run after entering or leaving `helm-popup-tip-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode helm-popup-tip-mode nil boundp] 6)
200 #@62 Open FILE with the default tool on this platform.
201
202 (fn FILE)
203 (defalias 'helm-open-file-with-default-tool #[257 "\302    \303=\203\304!\202*\305\306\302    \307=\203\310\202(    \311=\204'    \312=\205(\313$)\207" [process-connection-type system-type nil windows-nt helm-w32-shell-execute-open-file start-process "helm-open-file-with-default-tool" gnu/linux "xdg-open" darwin macos "open"] 6 (#$ . 30808)])
204 #@100 Opens a dired buffer in FILE's directory.  If FILE is a
205 directory, open this directory.
206
207 (fn FILE)
208 (defalias 'helm-open-dired #[257 "\300!\203\n\301!\207\301\302!!\210\303!\207" [file-directory-p dired file-name-directory dired-goto-file] 4 (#$ . 31220)])
209 #@25 
210
211 (fn FEATURE FUNCTION)
212 (defalias 'helm-require-or-error #[514 "\300\301\302#\206 \303\304#\207" [require nil t error "Need %s to use `%s'."] 6 (#$ . 31487)])
213 #@18 
214
215 (fn CANDIDATE)
216 (defalias 'helm-find-file-as-root #[257 "\302!\303\304\"\305\306\206\307\310\203\303\311\"\202!$\312\313\314!!\2033q\210\315!\2026\316!)\207" [helm-su-or-sudo non-essential helm-basename file-remote-p host format "/%s:%s:%s" "" expand-file-name localname nil buffer-live-p get-buffer find-alternate-file find-file] 11 (#$ . 31656)])
217 #@116 Simple action that run `find-file' on marked candidates.
218 Run `helm-find-many-files-after-hook' at end
219
220 (fn IGNORE)
221 (defalias 'helm-find-many-files #[257 "\301\302\303\304 \"\210\305\306!)\207" [helm--reading-passwd-or-string t mapc find-file helm-marked-candidates helm-log-run-hook helm-find-many-files-after-hook] 4 (#$ . 32035)])
222 #@124 Prompt as many time PROMPT is not empty.
223 If COUNT is non--nil add a number after each prompt.
224
225 (fn PROMPT &optional COUNT)
226 (defalias 'helm-read-repeat-string #[513 "\300\301\300\302\230\204(\203\303!\304Q\262\211\305!\211\262C\244\262T\262\202\306\302\"\207" [nil 1 "" int-to-string ": " helm-read-string remove] 8 (#$ . 32376)])
227 #@111 Parse html bookmark FILE and return an alist with (title . url) as elements.
228
229 (fn FILE URL-REGEXP BMK-REGEXP)
230 (defalias 'helm-html-bookmarks-to-alist #[771 "\301\211\211\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313!\210eb\210\314\315\301\316#\203U\305y\210\314\301\316#\2037\317\305!\262\314\301\316#\203H\320\317\321!!!\262BB\262\301y\210\202*\210\237\207" [helm-html-decode-entities-function nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents re-search-forward "href=\\|^ *<DT><A HREF=" t match-string url-unhex-string 1] 13 (#$ . 32730)])
231 #@100 Replace an html ENTITY by its string value.
232 When unable to decode ENTITY returns nil.
233
234 (fn ENTITY)
235 (defalias 'helm-html-entity-to-string #[257 "\301\"\211\203\302A!\2020\303 \304\305\306\307\310!\311\"\312$\216\313\314\"\205-\302\315\316\305\"!!)\262\207" [helm-html-entities-alist assoc string match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match "[0-9]+" string-to-number match-string] 9 (#$ . 33407)])
236 #@46 Decode entities in the string STR.
237
238 (fn STR)
239 (defalias 'helm-html-decode-entities-string #[257 "\300 \301\302\303\304\305!\306\"\307$\216\310\311!r\211q\210\301\302\312\304\305!\313\"\314$\216c\210eb\210\315\316\317\320#\203@\321\322\302!!\211\203<\323!\210\210\202'\324 *\262)\207" [match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 generate-new-buffer " *temp*" "\301\300!\205    \302\300!\207" [buffer-name kill-buffer] 2 re-search-forward "&#?\\([^;]*\\);" nil t helm-html-entity-to-string match-string replace-match buffer-string] 9 (#$ . 33883)])
240 (provide 'helm-utils)