added command to remove backup files

Chizi123

2018-11-17 c4001ccd1864293b64aa37d83a9d9457eb875e70

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
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
;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\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@\326
N\203S\327
N\204S\331\327\326N#\210
A\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)
#@511 Run before jumping to line.
This hook run when jumping from `helm-goto-line', `helm-etags-default-action',
and `helm-imenu-default-action'.
This allow you to retrieve a previous position after using the different helm
tools for searching (etags, grep, gid, (m)occur etc...).
By default positions are added to `mark-ring' you can also add to register
by using instead (or adding) `helm-save-pos-to-register-before-jump'.
In this case last position is added to the register
`helm-save-pos-before-jump-register'.
(defvar helm-goto-line-before-hook '(helm-save-current-pos-to-mark-ring) (#$ . 2571))
#@75 The register where `helm-save-pos-to-register-before-jump' save position.
(defvar helm-save-pos-before-jump-register 95 (#$ . 3173))
#@46 Table of html character entities and values.
(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))
#@49 Hook that run at end of `helm-find-many-files'.
(defvar helm-find-many-files-after-hook nil (#$ . 5209))
(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)
#@278 Show BUFFERS.
 
If more than one buffer marked switch to these buffers in separate windows.
If OTHER-WINDOW is non-nil, keep current buffer and switch to others buffers
in separate windows.
If a prefix arg is given split windows vertically.
 
(fn BUFFERS &optional OTHER-WINDOW)
(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)])
#@292 Split windows in one direction and balance them.
 
Direction can be controlled via `helm-window-prefer-horizontal-split'.
If a prefix arg is given split windows the other direction.
This function is suitable for `helm-window-show-buffers-function'.
 
(fn CANDIDATES &optional OTHER-WINDOW-FN)
(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)])
#@307 Split windows horizontally and vertically in alternate fashion.
 
Direction can be controlled via `helm-window-prefer-horizontal-split'.
If a prefix arg is given split windows the other direction.
This function is suitable for `helm-window-show-buffers-function'.
 
(fn CANDIDATES &optional OTHER-WINDOW-FN)
(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)])
#@406 Make an as-square-as-possible window mosaic of the CANDIDATES buffers.
 
If rectangular, the long side is in the direction given by
`helm-window-prefer-horizontal-split': if non-nil, it is horizontal, vertical
otherwise.
If OTHER-WINDOW-FN is non-nil, current windows are included in the mosaic.
This function is suitable for `helm-window-show-buffers-function'.
 
(fn CANDIDATES &optional OTHER-WINDOW-FN)
(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_G
V\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)])
#@266 Switch to BUFFER-OR-NAME in other window.
Direction can be controlled via `helm-window-prefer-horizontal-split'.
If a prefix arg is given split windows the other direction.
When argument BALANCE is provided `balance-windows'.
 
(fn BUFFER-OR-NAME &optional BALANCE)
(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)])
#@109 Check if BUFFER is narrowed.
Default is `helm-current-buffer'.
 
(fn &optional (BUFFER helm-current-buffer))
(defalias 'helm-current-buffer-narrowed-p #[128 "\211\203 \211
A\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)])
#@47 Go to char, revealing if necessary.
 
(fn LOC)
(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)])
#@129 Goto LINENO opening only outline headline if needed.
Animation is used unless NOANIM is non--nil.
 
(fn LINENO &optional NOANIM)
(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)])
#@123 Save current buffer position to `helm-save-pos-before-jump-register'.
To use this add it to `helm-goto-line-before-hook'.
(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)])
#@96 Save current buffer position to mark ring.
To use this add it to `helm-goto-line-before-hook'.
(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)])
#@148 Show only current source of this helm session with all its candidates.
With a numeric prefix arg show only the ARG number of candidates.
 
(fn ARG)
(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"])
(put 'helm-show-all-in-this-source-only 'helm-only t)
#@68 Display all sources previously hidden by `helm-set-source-filter'.
(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])
(put 'helm-display-all-sources 'helm-only t)
#@56 Return the list of sources name for this helm session.
(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)])
#@187 Add `helm-buffer' to `winner-boring-buffers' when quitting/exiting helm.
Add this function to `helm-cleanup-hook' when you don't want to see helm buffers
after running winner-undo/redo.
(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)])
(add-hook 'helm-cleanup-hook 'helm-handle-winner-boring-buffers)
#@124 Drop into `helm-find-files' from `helm'.
If current selection is a buffer or a file, `helm-find-files'
from its directory.
(defalias 'helm-quit-and-find-file #[0 "\203B
\306\307!\210\306\310!\210\311\312\313 \211:\205\314
A!
;\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>
r
q\210 )\327=\203{%\203{\330%!\206>
r
q\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>
\203
r\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])
(put 'helm-quit-and-find-file 'helm-only t)
#@176 Sort predicate function for helm candidates.
Args S1 and S2 can be single or (display . real) candidates,
that is sorting is done against real value of candidate.
 
(fn S1 S2)
(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\202s

U\203pGGW\202s

V\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)])
#@308 Return a string showing SIZE of a file in human readable form.
SIZE can be an integer or a float depending it's value.
`file-attributes' will take care of that to avoid overflow error.
KBSIZE is a floating point number, defaulting to `helm-default-kbsize'.
 
(fn SIZE &optional (KBSIZE helm-default-kbsize))
(defalias 'helm-file-human-size #[385 "\211\203 \211
A\262\242\202
\203\301\302\303\304G\\D\"\210\305B\306\307
:\203@
@\262
AY\203@\211A\245B\262
A\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)])
#@1502 Return `file-attributes' elements of FILE separately according to key value.
Availables keys are:
- TYPE: Same as nth 0 `files-attributes' if STRING is nil
        otherwise return either symlink, directory or file (default).
- LINKS: See nth 1 `files-attributes'.
- UID: See nth 2 `files-attributes'.
- GID: See nth 3 `files-attributes'.
- ACCESS-TIME: See nth 4 `files-attributes', however format time
               when STRING is non--nil (the default).
- MODIF-TIME: See nth 5 `files-attributes', same as above.
- STATUS: See nth 6 `files-attributes', same as above.
- SIZE: See nth 7 `files-attributes'.
- MODE: See nth 8 `files-attributes'.
- GID-CHANGE: See nth 9 `files-attributes'.
- INODE: See nth 10 `files-attributes'.
- DEVICE-NUM: See nth 11 `files-attributes'.
- DIRED: A line similar to what 'ls -l' return.
- HUMAN-SIZE: The size in human form, see `helm-file-human-size'.
- MODE-TYPE, mode-owner,mode-group, mode-other: Split what
  nth 7 `files-attributes' return in four categories.
- STRING: When non--nil (default) `helm-file-attributes' return
          more friendly values.
If you want the same behavior as `files-attributes' ,
(but with return values in proplist) use a nil value for STRING.
However when STRING is non--nil, time and type value are different from what
you have in `file-attributes'.
 
(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))
(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\211
A\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)])
#@139 Split mode file attributes STR into a proplist.
If STRING is non--nil return instead a space separated string.
 
(fn STR &optional STRING)
(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\262
T\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)])
#@86 Same as `dired-format-columns-of-files'.
Inlined here for compatibility.
 
(fn FILES)
(defalias 'helm-format-columns-of-files #[257 "`\300!\210\301
`\302\303$\207" [completion--insert-strings put-text-property mouse-face nil] 7 (#$ . 23305)])
#@45 
 
(fn BUFFER-OR-NAME CANDIDATES &rest BODY)
(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)]))
(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)
(defvar helm-match-line-overlay nil)
(defvar helm--match-item-overlays nil)
#@77 Highlight and underline current position
 
(fn &optional START END BUF FACE)
(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\212y\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\225

U\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)])
#@98 Should translate pcre REGEXP to elisp regexp.
Assume regexp is a pcre based regexp.
 
(fn REGEXP)
(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\211
S|\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)])
(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])
(defalias 'helm-match-line-cleanup-maybe #[0 "\300 \205\301 \207" [helm-empty-buffer-p helm-match-line-cleanup] 1])
(defalias 'helm-match-line-update #[0 "\205\n\301!\210\302 \207" [helm-match-line-overlay delete-overlay helm-highlight-current-line] 2])
(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])
(defalias 'helm-match-line-cleanup-pulse #[0 "\300\301\302\303#\207" [run-with-timer 0.3 nil helm-match-line-cleanup] 4])
(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)
(defvar helm--show-help-echo-timer nil)
(defalias 'helm-cancel-help-echo-timer #[0 "\205\301!\210\302\211\207" [helm--show-help-echo-timer cancel-timer nil] 2])
(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])
(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)
#@80 Show help-echo informations in a popup tip at end of line.
 
(fn &optional ARG)
(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)])
(defvar helm-popup-tip-mode-hook nil)
(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)
#@62 Open FILE with the default tool on this platform.
 
(fn FILE)
(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)])
#@100 Opens a dired buffer in FILE's directory.  If FILE is a
directory, open this directory.
 
(fn FILE)
(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)])
#@25 
 
(fn FEATURE FUNCTION)
(defalias 'helm-require-or-error #[514 "\300\301\302#\206 \303\304#\207" [require nil t error "Need %s to use `%s'."] 6 (#$ . 31487)])
#@18 
 
(fn CANDIDATE)
(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)])
#@116 Simple action that run `find-file' on marked candidates.
Run `helm-find-many-files-after-hook' at end
 
(fn IGNORE)
(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)])
#@124 Prompt as many time PROMPT is not empty.
If COUNT is non--nil add a number after each prompt.
 
(fn PROMPT &optional COUNT)
(defalias 'helm-read-repeat-string #[513 "\300\301\300\302\230\204(\203\303!\304Q\262\211\305!\211\262C\244\262

T\262\202\306\302\"\207" [nil 1 "" int-to-string ": " helm-read-string remove] 8 (#$ . 32376)])
#@111 Parse html bookmark FILE and return an alist with (title . url) as elements.
 
(fn FILE URL-REGEXP BMK-REGEXP)
(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!!!\262
BB\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)])
#@100 Replace an html ENTITY by its string value.
When unable to decode ENTITY returns nil.
 
(fn ENTITY)
(defalias 'helm-html-entity-to-string #[257 "\301
\"\211\203\302
A!\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)])
#@46 Decode entities in the string STR.
 
(fn STR)
(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)])
(provide 'helm-utils)