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

Chizi123
2018-11-18 8f6f2705a38e2515b6c57fda12c5be29fb9a798f
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
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
;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\300\304!\210\305\306\307\310\311\302%\210\312\313\314\315\316DD\317\311\306\320\321&\210\312\322\314\315\323DD\324\311\306\320\325&\210\312\326\314\315\327DD\330\311\306\320\331&\210\312\332\314\315\333DD\334\311\306\320\331&\210\312\335\314\315\336DD\337\311\306\320\331&\210\312\340\314\315\341DD\342\311\306\320\331&\210\312\343\314\315\344DD\345\311\306\320\315&\210\312\346\314\315\347DD\350\311\306\320\331&\210\312\351\314\315\352DD\353\311\306\320\354&\210\312\355\314\315\356DD\357\311\306\320\331&\207" [require cl-lib helm helm-lib helm-files custom-declare-group helm-mode nil "Enable helm completion." :group custom-declare-variable helm-completing-read-handlers-alist funcall function #[0 "\300\207" [((describe-function . helm-completing-read-symbols) (describe-variable . helm-completing-read-symbols) (describe-symbol . helm-completing-read-symbols) (debug-on-entry . helm-completing-read-symbols) (find-function . helm-completing-read-symbols) (disassemble . helm-completing-read-symbols) (trace-function . helm-completing-read-symbols) (trace-function-foreground . helm-completing-read-symbols) (trace-function-background . helm-completing-read-symbols) (find-tag . helm-completing-read-default-find-tag) (org-capture . helm-org-completing-read-tags) (org-set-tags . helm-org-completing-read-tags) (ffap-alternate-file) (tmm-menubar) (find-file) (find-file-at-point . helm-completing-read-sync-default-handler) (ffap . helm-completing-read-sync-default-handler) (execute-extended-command) (dired-do-rename . helm-read-file-name-handler-1) (dired-do-copy . helm-read-file-name-handler-1) (dired-do-symlink . helm-read-file-name-handler-1) (dired-do-relsymlink . helm-read-file-name-handler-1) (dired-do-hardlink . helm-read-file-name-handler-1) (basic-save-buffer . helm-read-file-name-handler-1) (write-file . helm-read-file-name-handler-1) (write-region . helm-read-file-name-handler-1))] 1] "Completing read functions for specific Emacs commands.\n\nBy default `helm-mode' use `helm-completing-read-default-handler' to\nprovide helm completion in each `completing-read' or `read-file-name'\nfound, but other functions can be specified here for specific\ncommands. This also allow disabling helm completion for some commands\nwhen needed.\n \nEach entry is a cons cell like (EMACS_COMMAND . COMPLETING-READ_HANDLER)\nwhere key and value are symbols.\n\nEach key is an Emacs command that use originaly `completing-read'.\n\nEach value maybe a helm function that takes same arguments as\n`completing-read' plus NAME and BUFFER, where NAME is the name of the new\nhelm source and BUFFER the name of the buffer we will use, but it can\nbe also a function not using helm, in this case the function should\ntake same args as `completing-read' and not be prefixed by \"helm-\".\n\n`helm' will use the name of the command calling `completing-read' as\nNAME and BUFFER will be computed as well with NAME but prefixed with\n\"*helm-mode-\".\n\nThis function prefix name must start by \"helm-\" when it uses helm,\notherwise `helm' assumes the function is not a helm function and\nexpects same args as `completing-read', this allow you to define a\nhandler not using helm completion.\n\nExample:\n\n    (defun foo/test ()\n      (interactive)\n      (message \"%S\" (completing-read \"test: \" '(a b c d e))))\n\n    (defun helm-foo/test-completing-read-handler (prompt collection\n                                                  predicate require-match\n                                                  initial-input hist def\n                                                  inherit-input-method\n                                                  name buffer)\n      (helm-comp-read prompt collection :marked-candidates t\n                                        :name name\n                                        :buffer buffer))\n\n    (add-to-list 'helm-completing-read-handlers-alist\n                 '(foo/test . helm-foo/test-completing-read-handler))\n\n\nWe want here to make the regular `completing-read' in `foo/test'\nreturns a list of candidate(s) instead of a single candidate.\n \nNote that this function will be reused for ALL the `completing-read'\nof this command, so it should handle all cases, e.g\nIf first `completing-read' complete against symbols and\nsecond `completing-read' should handle only buffer,\nyour specialized function should handle the both.\n\nIf the value of an entry is nil completion will fall back to\nemacs vanilla behavior.\nExample:\n\nIf you want to disable helm completion for `describe-function', use:\n\n    (describe-function . nil)\n\nIdo is also supported, you can use `ido-completing-read' and\n`ido-read-file-name' as value of an entry or just 'ido.\nExample:\nEnable ido completion for `find-file':\n\n    (find-file . ido)\n\nsame as\n\n    (find-file . ido-read-file-name)\n\nNote that you don't need to enable `ido-mode' for this to work, see\n`helm-mode' documentation." :type (alist :key-type symbol :value-type symbol) helm-comp-read-case-fold-search #[0 "\207" [helm-case-fold-search] 1] "Default Local setting of `helm-case-fold-search' for `helm-comp-read'.\nSee `helm-case-fold-search' for more info." symbol helm-mode-handle-completion-in-region #[0 "\300\207" [t] 1] "Whether to replace or not `completion-in-region-function'.\nThis enable support for `completing-read-multiple' and `completion-at-point'\nwhen non--nil." boolean helm-mode-reverse-history #[0 "\300\207" [t] 1] "Display history source after current source in `helm-mode' handled commands." helm-mode-no-completion-in-region-in-modes #[0 "\300\207" [nil] 1] "A list of modes that do not want helm for `completion-in-region'." helm-completion-in-region-fuzzy-match #[0 "\300\207" [nil] 1] "Whether `helm-completion-in-region' use fuzzy matching or not.\nAffect among others `completion-at-point', `completing-read-multiple'." helm-completion-in-region-default-sort-fn #[0 "\300\207" [helm-completion-in-region-sort-fn] 1] "The default sort function to sort candidates in completion-in-region.\n\nWhen nil no sorting is done.\nThe function is a `filtered-candidate-transformer' function which takes\ntwo args CANDIDATES and SOURCE.\nIt will be used only when `helm-completion-in-region-fuzzy-match' is\nnil otherwise fuzzy use its own sort function." helm-mode-fuzzy-match #[0 "\300\207" [nil] 1] "Enable fuzzy matching in `helm-mode' globally.\nNote that this will slow down completion and modify sorting\nwhich is unwanted in many places.\nThis affect only the functions with completing-read helmized by helm-mode.\nTo fuzzy match `completion-at-point' and friends see\n`helm-completion-in-region-fuzzy-match'." helm-mode-minibuffer-setup-hook-black-list #[0 "\300\207" [(minibuffer-completion-help)] 1] "Incompatible `minibuffer-setup-hook' functions go here.\nA list of symbols.\nHelm-mode is rejecting all lambda's, byte-code fns\nand all functions belonging in this list from `minibuffer-setup-hook'." (repeat (choice symbol)) helm-completing-read-dynamic-complete #[0 "\300\207" [nil] 1] "Use dynamic completion in `completing-read' when non-nil.\n\nThe default is to not use this because it is most of the time unneeded\nin `completing-read' and thus it is much more slower.\nIf you feel one emacs function need this you have better time to tell\n`helm-mode' to use a dynamic completion for this function only by using\n`helm-completing-read-handlers-alist' with an entry like this:\n\n    (my-function . helm-completing-read-sync-default-handler)\n\nSo you should not change the default setting of this variable unless you\nknow what you are doing."] 8)
#@30 Keymap for `helm-comp-read'.
(defvar helm-comp-read-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\305#\210\211\207" [helm-map make-sparse-keymap set-keymap-parent define-key [C-return] helm-cr-empty-string [134217741]] 5) (#$ . 8081))
#@22 Return empty string.
(defalias 'helm-cr-empty-string #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action #[257 "\300\207" [""] 2 "\n\n(fn CANDIDATE)"] error "Running helm command outside of context"] 2 (#$ . 8337) nil])
(put 'helm-cr-empty-string 'helm-only t)
(defalias 'helm-mode--keyboard-quit #[0 "\301\302\303\301\")\207" [debug-on-quit nil signal quit] 3])
#@1644 Convert COLLECTION to list removing elements that don't match TEST.
See `helm-comp-read' about supported COLLECTION arguments.
 
SORT-FN is a predicate to sort COLLECTION.
 
ALISTP when non--nil will not use `all-completions' to collect
candidates because it doesn't handle alists correctly for helm.
i.e In `all-completions' the car of each pair is used as value.
In helm we want to use the cdr instead like (display . real),
so we return the alist as it is with no transformation by
`all-completions'.
 
e.g
 
(setq A '((a . 1) (b . 2) (c . 3)))
==>((a . 1) (b . 2) (c . 3))
(helm-comp-read "test: " A :alistp nil
                              :exec-when-only-one t
                              :initial-input "a")
==>"a" Which is not what we expect.
 
(helm-comp-read "test: " A :alistp t
                              :exec-when-only-one t
                              :initial-input "1")
==>"1"
 
See docstring of `all-completions' for more info.
 
INPUT is the string you want to complete against, defaulting to
`helm-pattern' which is the value of what you enter in minibuffer.
Note that when using a function as COLLECTION this value will be
available with the input argument of the function only when using a
sync source from `helm-comp-read', i.e not using
`:candidates-in-buffer', otherwise the function is called only once
with an empty string as value for `helm-pattern' because
`helm-pattern' is not yet computed, which is what we want otherwise
data would not be fully collected at init time.
 
If COLLECTION is an `obarray', a TEST should be needed. See `obarray'.
 
(fn COLLECTION &optional TEST SORT-FN ALISTP (INPUT helm-pattern))
(defalias 'helm-comp-read-get-candidates #[1153 "\211\203 \211A\262\242\202\203\304\305\306\307G\\D\"\210r\310    !\203'    \206*p\211q\210\311!\203=\312#\2029\203S\313!\203SJ9\203S\314\2029\203|\313!\203|\203|\315\316\317\320\321    !\322\"\307\323%\312J#\262\2029\203\221\313!\203\221\312J\"\202\324!\203\341\211\325\230\204\341\n\203\341\326#\314\211:\203\332@\262\327\235\204\323\330 \"\203\310B\262\202\323\331\332!!PB\262A\262\202\252\211\237\266\203\202\324!\203\361\326#\202\203\375\204\375\202\312#\203\333\"\202\211\262)\207" [helm-pattern helm-current-buffer minibuffer-completing-file-name helm--url-regexp signal wrong-number-of-arguments helm-comp-read-get-candidates 5 buffer-live-p vectorp all-completions boundp nil make-byte-code 257 "\3011\300\302=\203\300\303!!\202\300!0\207\300\303!!\207" vconcat vector [(wrong-type-argument) commandp intern] "\n\n(fn ELM)" functionp "" t ("./" "../") string-match file-name-as-directory helm-basedir sort] 12 (#$ . 8740)])
#@19 
 
(fn CANDIDATES)
(defalias 'helm-cr--pattern-in-candidates-p #[257 "\301\"\206 \302!\236\206 \235\206 \227\235\206 \226\235\207" [helm-pattern assoc intern] 4 (#$ . 11487)])
#@81 Default filter candidate function for `helm-comp-read'.
 
(fn CANDIDATES SOURCE)
(defalias 'helm-cr-default-transformer #[514 "\301\302\"\303\304=\204!\305\230\204!\306!\204!\307C\"\262\304\262\303\211\211\211:\203\220@\262;\203=\310\311\305#\202>\262\310\311\305#\262\232\204S\232\203l\203l\211\312\313\314\312\315\316\317##PBC\244\262\202\211\211;\203\204\320\321\"\203\204\310\321\322#B\202\205C\244\262A\262\202&\323\324\325#\266\205\207" [helm-pattern helm-attr must-match nil t "" helm-cr--pattern-in-candidates-p append replace-regexp-in-string "\\s\\" propertize " " display "[?]" face helm-ff-prefix string-match "\n" "->" helm-fast-remove-dups :test equal] 17 (#$ . 11682)])
(defalias 'helm-comp-read--move-to-first-real-candidate #[0 "\300\301\302\"\211\205\303\304\305#\306\230\205\307 \207" [helm-get-selection nil withprop get-text-property 0 display "[?]" helm-next-line] 5])
#@22 
 
(fn DEFAULT CANDS)
(defalias 'helm-cr-default #[514 "\300\301;\203\302\230\204\303\"B\202H:\203G\304\301\211:\203>@\262\2040\2023\305!B\262A\262\202\211\237\266\203\"\202H\"\207" [delq nil "" delete append helm-stringify] 10 (#$ . 12634)])
#@4012 Read a string in the minibuffer, with helm completion.
 
It is helm `completing-read' equivalent.
 
- PROMPT is the prompt name to use.
 
- COLLECTION can be a list, vector, obarray or hash-table.
  It can be also a function that receives three arguments:
  the values string, predicate and t. See `all-completions' for more details.
 
Keys description:
 
- TEST: A predicate called with one arg i.e candidate.
 
- INITIAL-INPUT: Same as input arg in `helm'.
 
- PRESELECT: See preselect arg of `helm'.
 
- DEFAULT: This option is used only for compatibility with regular
  Emacs `completing-read' (Same as DEFAULT arg of `completing-read').
 
- BUFFER: Name of helm-buffer.
 
- MUST-MATCH: Candidate selected must be one of COLLECTION.
 
- FUZZY: Enable fuzzy matching.
 
- REVERSE-HISTORY: When non--nil display history source after current
  source completion.
 
- REQUIRES-PATTERN: Same as helm attribute, default is 0.
 
- HISTORY: A list containing specific history, default is nil.
  When it is non--nil, all elements of HISTORY are displayed in
  a special source before COLLECTION.
 
- INPUT-HISTORY: A symbol. the minibuffer input history will be
  stored there, if nil or not provided, `minibuffer-history'
  will be used instead.
 
- CASE-FOLD: Same as `helm-case-fold-search'.
 
- DEL-INPUT: Boolean, when non--nil (default) remove the partial
  minibuffer input from HISTORY is present.
 
- PERSISTENT-ACTION: A function called with one arg i.e candidate.
 
- PERSISTENT-HELP: A string to document PERSISTENT-ACTION.
 
- MODE-LINE: A string or list to display in mode line.
  Default is `helm-comp-read-mode-line'.
 
- KEYMAP: A keymap to use in this `helm-comp-read'.
  (the keymap will be shared with history source)
 
- NAME: The name related to this local source.
 
- HEADER-NAME: A function to alter NAME, see `helm'.
 
- EXEC-WHEN-ONLY-ONE: Bound `helm-execute-action-at-once-if-one'
  to non--nil. (possibles values are t or nil).
 
- VOLATILE: Use volatile attribute.
 
- SORT: A predicate to give to `sort' e.g `string-lessp'
  Use this only on small data as it is ineficient.
  If you want to sort faster add a sort function to
  FC-TRANSFORMER.
  Note that FUZZY when enabled is already providing a sort function.
 
- FC-TRANSFORMER: A `filtered-candidate-transformer' function
  or a list of functions.
 
- HIST-FC-TRANSFORMER: A `filtered-candidate-transformer'
  function for the history source.
 
- MARKED-CANDIDATES: If non--nil return candidate or marked candidates as a list.
 
- NOMARK: When non--nil don't allow marking candidates.
 
- ALISTP: (default is non--nil) See `helm-comp-read-get-candidates'.
 
- CANDIDATES-IN-BUFFER: when non--nil use a source build with
  `helm-source-in-buffer' which is much faster.
  Argument VOLATILE have no effect when CANDIDATES-IN-BUFFER is non--nil.
 
- MATCH-PART: Allow matching only one part of candidate.
  See match-part documentation in `helm-source'.
 
- ALLOW-NEST: Allow nesting this `helm-comp-read' in a helm session.
  See `helm'.
 
- MULTILINE: See multiline in `helm-source'.
 
Any prefix args passed during `helm-comp-read' invocation will be recorded
in `helm-current-prefix-arg', otherwise if prefix args were given before
`helm-comp-read' invocation, the value of `current-prefix-arg' will be used.
That's mean you can pass prefix args before or after calling a command
that use `helm-comp-read' See `helm-M-x' for example.
 
(fn PROMPT COLLECTION &key TEST INITIAL-INPUT DEFAULT PRESELECT (BUFFER "*Helm Completions*") MUST-MATCH FUZZY REVERSE-HISTORY (REQUIRES-PATTERN 0) HISTORY INPUT-HISTORY (CASE-FOLD helm-comp-read-case-fold-search) (DEL-INPUT t) (PERSISTENT-ACTION nil) (PERSISTENT-HELP "DoNothing") (MODE-LINE helm-comp-read-mode-line) HELP-MESSAGE (KEYMAP helm-comp-read-map) (NAME "Helm Completions") HEADER-NAME CANDIDATES-IN-BUFFER MATCH-PART EXEC-WHEN-ONLY-ONE QUIT-WHEN-NO-CAND (VOLATILE t) SORT FC-TRANSFORMER HIST-FC-TRANSFORMER MARKED-CANDIDATES NOMARK (ALISTP t) (CANDIDATE-NUMBER-LIMIT helm-candidate-number-limit) MULTILINE ALLOW-NEST)
(defalias 'helm-comp-read #[642 "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"\206 \314A@\306\315\"A@\306\316\"A@\306\317\"A@\306    \320\"\206@\321A@\306\n\322\"A@\306 \323\"A@\306\f\324\"\206[\325DA@\306 \326\"\206f\327A@\306\330\"A@\306\331\"\206x\332A@\306\333\"\206\205\325    DA@\306\334\"A@\306\335\"\206\231\325\nDA@\306\336\"\206\244\337A@\306\340\"A@\306\341\"A@\306\342\"A@\306\343\"A@\306\344\"A@\306\345\"\206\322\346A@\306\347\"A@\306\350\"A@\306\351\"A@\306\352\"A@\306\353\"A@\306\354\"\206\355A@\306 \356\"\206 \325 DA@\306!\357\"A@\306\"\360\"A@\"\211\203J\211@\361>\2032\211AA\262\202\362$>A@\203A\325\262\202\363\364@\"\210\202\210\365\f!\203U\366\f!\210\367\370\371\372    \373BBFC\374=\203j\375\262\205\201\376 \377\201F\201G#\210\211\262\211\203\224\201H\206\220@\"\202\233\206\233@$A&B\201I\201J\201KC#C\201L\201M\201N\201O\201P+*)&\201Q\"\201R$\201L\201M\201S\201O\201P*)#$\201T\"\201R$\201U\201V\201W\"\201X\201Y\201Z&\357\342\201[\201\\\201]\205(\201^!\"\330'\331(\335\333+\334,\201_&\201U\201X\201Y\342\357\340\201[\201\\\201^!\201`\"\320-\330*\331+\201Z5\335\3330\3341\201_!\345-&\201U\201a\201b\342\357\340\201[\201\\\201^!\201c\"\320.\330+\201Z4\335\3310\3331\3342\201_\"&\201d&B\203\332\202\333BDDE\325\203 \325\211:\203@\262\201eBB\262A\262\202\356\211\237\266\203\262$\203\237\262\201f\201g\201h\"\210\201i\216\201j\201k\201l.\311/\3120\201m8\201n\201o\335\360\356\201p4\32279\205Y7\313?&\262)\211\203\237\"\203\237\203\237\"9\203\213\"J9\204\213\"J\211\203\207\211\240\210\210\202\237\":\203\231\"\240\210\202\237\"CL\210\211\206\247\201q .\266\211\262\207" [helm-comp-read-case-fold-search helm-comp-read-mode-line helm-comp-read-map helm-candidate-number-limit helm-action-buffer minibuffer-completion-confirm plist-member :test :initial-input :default :preselect :buffer (nil "*Helm Completions*") :must-match :fuzzy :reverse-history :requires-pattern (nil 0) :history :input-history :case-fold nil :del-input (nil t) :persistent-action :persistent-help (nil "DoNothing") :mode-line :help-message :keymap :name (nil "Helm Completions") :header-name :candidates-in-buffer :match-part :exec-when-only-one :quit-when-no-cand :volatile (nil t) :sort :fc-transformer :hist-fc-transformer :marked-candidates :nomark :alistp (nil t) :candidate-number-limit :multiline :allow-nest (:test :initial-input :default :preselect :buffer :must-match :fuzzy :reverse-history :requires-pattern :history :input-history :case-fold :del-input :persistent-action :persistent-help :mode-line :help-message :keymap :name :header-name :candidates-in-buffer :match-part :exec-when-only-one :quit-when-no-cand :volatile :sort :fc-transformer :hist-fc-transformer :marked-candidates :nomark :alistp :candidate-number-limit :multiline :allow-nest :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:test :initial-input :default :preselect :buffer :must-match :fuzzy :reverse-history :requires-pattern :history :input-history :case-fold :del-input :persistent-action :persistent-help :mode-line :help-message :keymap :name :header-name :candidates-in-buffer :match-part :exec-when-only-one :quit-when-no-cand :volatile :sort :fc-transformer :hist-fc-transformer :marked-candidates :nomark :alistp :candidate-number-limit :multiline :allow-nest)" get-buffer kill-buffer "Sole action (Identity)" lambda (candidate) if ((helm-marked-candidates) (identity candidate)) confirm-after-completion confirm make-sparse-keymap define-key helm-map minibuffer-completion-predicate minibuffer-completion-table helm-read-file-name-mode-line-string helm-execute-action-at-once-if-one helm-quit-if-no-candidate " " helm-confirm-and-exit-minibuffer make-composed-keymap replace-regexp-in-string "helm-maybe-exit-minibuffer" "helm-confirm-and-exit-minibuffer" make-byte-code 0 "\306\300\301\304\305\303\203 \307\202    %\310\302\"\207" vconcat vector [helm-comp-read-get-candidates #1="" helm-cr-default helm-pattern] 6 "\304\302\300\305\303$\211\205\306\307\310\301\"\"\207" [helm-comp-read-get-candidates nil delete #1# helm-cr-default] helm-make-source format "%s History" helm-source-sync :candidates :fuzzy-match :filtered-candidate-transformer append ((lambda (candidates sources) (cl-loop for i in candidates when (stringp i) collect (replace-regexp-in-string "\\s\\" #1# i)))) helm-mklist :action (helm-cr-default-transformer) helm-source-in-buffer :data (helm-cr-default-transformer) must-match (nomark) add-hook helm-after-update-hook helm-comp-read--move-to-first-real-candidate #[0 "\300\301\302\"\207" [remove-hook helm-after-update-hook helm-comp-read--move-to-first-real-candidate] 3] helm :sources :input :prompt :resume noresume :case-fold-search helm-mode--keyboard-quit] 74 (#$ . 12915)])
(defvar helm-completion-mode-string " Helm")
(defvar helm-completion-mode-quit-message "Helm completion disabled")
(defvar helm-completion-mode-start-message "Helm completion enabled")
#@160 Specialized function for fast symbols completion in `helm-mode'.
 
(fn PROMPT COLLECTION TEST REQUIRE-MATCH INIT HIST DEFAULT INHERIT-INPUT-METHOD NAME BUFFER)
(defalias 'helm-completing-read-symbols #[2570 "\301\302!\210\303\304\305\306\307\310\311\312\313\314\"\315\"\316$\317\320\321\322\323\324\310\325\326\313\314!\327\"\330\331%\332\333 &\334 \335\336 \337\340\341\342\206F\343&\206M\344 \207" [helm-mode-fuzzy-match require helm-elisp helm :sources helm-make-source helm-source-in-buffer :init make-byte-code 0 "\302\303\304\305\306\307\300!\310\"\311\312%\301\242\206\301\"\207" vconcat vector [helm-apropos-init make-byte-code 257 "\300!\205\n\301!?\207" vconcat vector [keywordp] 3 "\n\n(fn X)"] 7 :filtered-candidate-transformer helm-apropos-default-sort-fn :help-message helm-comp-read-help-message :fuzzy-match :persistent-action 257 "\301\300\"\207" [helm-lisp-completion-persistent-action] 4 "\n\n(fn CANDIDATE)" :persistent-help helm-lisp-completion-persistent-help :prompt :buffer :input :history :resume noresume :default "" helm-mode--keyboard-quit] 30 (#$ . 22185)])
#@363 Call `helm-comp-read' with same args as `completing-read'.
Extra optional arg CANDS-IN-BUFFER mean use `candidates-in-buffer'
method which is faster.
It should be used when candidate list don't need to rebuild dynamically.
 
(fn PROMPT COLLECTION TEST REQUIRE-MATCH INIT HIST DEFAULT INHERIT-INPUT-METHOD NAME BUFFER &optional CANDS-IN-BUFFER EXEC-WHEN-ONLY-ONE)
(defalias 'helm-completing-read-default-1 #[3082 "\242\206;\203\202):\203(@    A\211\262\266\202\202)\303\211\2058\2035\211\2028\304!\262\305\306\307\310    \311 \312\313\303\314\315\316\317;\203t\320\230\203t\321=\204p\322=\203t\323\202u\324\325\326\327\n\330 \331%\206\207\320\332 & \207" [minibuffer-completing-file-name helm-mode-reverse-history helm-mode-fuzzy-match nil regexp-quote helm-comp-read :test :history :reverse-history :input-history :must-match :alistp :help-message helm-comp-read-help-message :name :requires-pattern "" confirm confirm-after-completion 1 0 :candidates-in-buffer :exec-when-only-one :fuzzy :buffer :default :initial-input] 47 (#$ . 23304)])
#@143 Specialized `helm-mode' handler for `find-tag'.
 
(fn PROMPT COLLECTION TEST REQUIRE-MATCH INIT HIST DEFAULT INHERIT-INPUT-METHOD NAME BUFFER)
(defalias 'helm-completing-read-default-find-tag #[2570 "\300        \301\211$\302         \303& \207" [helm-comp-read-get-candidates nil helm-completing-read-default-1 t] 23 (#$ . 24406)])
#@145 `helm-mode' handler using sync source as backend.
 
(fn PROMPT COLLECTION TEST REQUIRE-MATCH INIT HIST DEFAULT INHERIT-INPUT-METHOD NAME BUFFER)
(defalias 'helm-completing-read-sync-default-handler #[2570 "\300\n\n\n\n\n\n\n\n\n\n&\n\207" [helm-completing-read-default-1] 21 (#$ . 24751)])
#@150 Default `helm-mode' handler for all `completing-read'.
 
(fn PROMPT COLLECTION TEST REQUIRE-MATCH INIT HIST DEFAULT INHERIT-INPUT-METHOD NAME BUFFER)
(defalias 'helm-completing-read-default-handler #[2570 "\301\n\n\n\n\n\n\n\n\n\n?& \207" [helm-completing-read-dynamic-complete helm-completing-read-default-1] 22 (#$ . 25057)])
#@140 The `read-buffer-function' for `helm-mode'.
Affects `switch-to-buffer' and related.
 
(fn PROMPT &optional DEFAULT REQUIRE-MATCH PREDICATE)
(defalias 'helm--generic-read-buffer #[1025 "\300 \301\302\211\n&\207" [helm-buffer-list helm--completing-read-default nil] 13 (#$ . 25402)])
#@358 An helm replacement of `completing-read'.
This function should be used only as a `completing-read-function'.
 
Don't use it directly, use instead `helm-comp-read' in your programs.
 
See documentation of `completing-read' and `all-completions' for details.
 
(fn PROMPT COLLECTION &optional PREDICATE REQUIRE-MATCH INITIAL-INPUT HIST DEF INHERIT-INPUT-METHOD)
(defalias 'helm--completing-read-default #[2050 "\3062\307 \206\n\310!\311\312\"    \236\211\243\211\205\310!        \257\313D\"\314\211\f\314\211:\203d@\262:\204]\315!\204] >\204]B\262A\262\202>\211\237\266\203\314$\316!\203w\317\202x\320\321=\203\201\322\262\203\232\204\232\323\306\324\216\325\326!\210\327%\")\"\210\330=\204\254;\203\260\331\332\"\204\260\325\326!\210\333\334\335\336\337 !\340\"\341$\216\203\315\203\315\327\"\202 \203\353\322=\203\353>\342\343#\240\210\327\"\202 \203\366\327\"\202 \211&\n-\266\2110\207" [this-command helm-completing-read-handlers-alist helm-completion-mode-start-message helm-completion-mode-quit-message minibuffer-setup-hook helm-mode-minibuffer-setup-hook-black-list --cl-block-helm--completing-read-default-- helm-this-command helm-symbol-name format "*helm-mode-%s*" append nil byte-code-function-p functionp helm-completing-read-sync-default-handler helm-completing-read-default-handler ido ido-completing-read throw #[0 "\300\301!\207" [helm-mode 1] 2] helm-mode -1 apply completing-read string-match "^helm" make-byte-code 0 "\302\303!\210\300\211\207" vconcat vector [this-command helm-mode 1] 2 all-completions "" unread-command-events completing-read-function] 29 (#$ . 25697)])
#@1510 Read a file name with helm completion.
It is helm `read-file-name' emulation.
 
Argument PROMPT is the default prompt to use.
 
Keys description:
 
- NAME: Source name, default to "Read File Name".
 
- INITIAL-INPUT: Where to start read file name, default to `default-directory'.
 
- BUFFER: `helm-buffer' name default to "*Helm Completions*".
 
- TEST: A predicate called with one arg 'candidate'.
 
- CASE-FOLD: Same as `helm-case-fold-search'.
 
- PRESELECT: helm preselection.
 
- HISTORY: Display HISTORY in a special source.
 
- MUST-MATCH: Can be 'confirm, nil, or t.
 
- FUZZY: Enable fuzzy matching when non-nil (Enabled by default).
 
- MARKED-CANDIDATES: When non--nil return a list of marked candidates.
 
- NOMARK: When non--nil don't allow marking candidates.
 
- ALISTP: Don't use `all-completions' in history (take effect only on history).
 
- PERSISTENT-ACTION-IF: a persistent if action function.
 
- PERSISTENT-HELP: persistent help message.
 
- MODE-LINE: A mode line message, default is `helm-read-file-name-mode-line-string'.
 
(fn PROMPT &key (NAME "Read File Name") (INITIAL-INPUT default-directory) (BUFFER "*Helm file completions*") TEST (CASE-FOLD helm-file-name-case-fold-search) PRESELECT HISTORY MUST-MATCH (FUZZY t) DEFAULT MARKED-CANDIDATES (CANDIDATE-NUMBER-LIMIT helm-ff-candidate-number-limit) NOMARK (ALISTP t) (PERSISTENT-ACTION-IF \='helm-find-files-persistent-action-if) (PERSISTENT-HELP "Hit1 Expand Candidate, Hit2 or (C-u) Find file") (MODE-LINE helm-read-file-name-mode-line-string))
(defalias 'helm-read-file-name #[385 "\306\307\"\206\310A@\306\311\"\206\312DA@\306\313\"\206\314A@\306\315\"A@\306\316\"\2060\312    DA@\306\317\"A@\306\320\"A@\306\321\"A@C\306    \322\"\206Q\323A@\306\n\324\"A@\306 \325\"A@\306\f\326\"\206l\312\nDA@\306 \327\"A@\306\330\"\206~\331A@\306\332\"\206\211\333A@\306\334\"\206\224\335A@\306\336\"\206\241\312 DA@\211\203\320\211@\337>\203\270\211AA\262\202\245\340>A@\203\307\312\262\202\245\341\342@\"\210\202\245\210\343\344!\210\345\f!\203\337\346\f!\210    \242\347=\203\354    \350\240\210\351\352\353\"\210\354\355\356\357\n\360BBFC \205\361\362 !?\312@    \205A\363>?B \205\"\364\f\312\211$ \242C \242\205I\365 \366\367\370D\367\"\211\371=\203A\372\202B\373\262#\210\211\262\211\203U\374D\"\202WDE\375\211FG\376\377\201I #\201J\201K\201L\"\201M\201N\201O\336\n\201P\n\201Q\375\201R\332\334\201S\327\201T&\201J\201M\201N\201U\201V\201W\336 \201X\201Y\201Q\375\201P\201Z\201[\201\\\201]\201^%\"\"\201_\"\201`$\201a\201b\201c\201d\332\334\201e\375\201S\201f\201g\327'\201T$& D\201h\201iH\203#\201j!\202$\201k\201l!\201m\326\201n\201o\201p\324\313#\201q\312\317$&\211\203f\211;\203f\211\201r\230\203f\201r\202\313\211\203\217\211;\203\217\201s\"\203\217 \203\217 <\203\212 @\202\304 \202\304\211\203\243\211<\203\243\201t\201l\"\202\304\211\203\273\201u!\203\273\201v\201l!!\202\304\211\203\307\201l!\206\313\201w .\266\206\207" [default-directory helm-file-name-case-fold-search helm-ff-candidate-number-limit helm-read-file-name-mode-line-string helm-action-buffer helm-ff-auto-update-initial-value plist-member :name (nil "Read File Name") :initial-input nil :buffer (nil "*Helm file completions*") :test :case-fold :preselect :history :must-match :fuzzy (nil t) :default :marked-candidates :candidate-number-limit :nomark :alistp (nil t) :persistent-action-if (nil helm-find-files-persistent-action-if) :persistent-help (nil "Hit1 Expand Candidate, Hit2 or (C-u) Find file") :mode-line (:name :initial-input :buffer :test :case-fold :preselect :history :must-match :fuzzy :default :marked-candidates :candidate-number-limit :nomark :alistp :persistent-action-if :persistent-help :mode-line :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:name :initial-input :buffer :test :case-fold :preselect :history :must-match :fuzzy :default :marked-candidates :candidate-number-limit :nomark :alistp :persistent-action-if :persistent-help :mode-line)" require tramp get-buffer kill-buffer confirm-after-completion confirm mapc #[257 "\300\301\"\207" [add-hook helm-after-update-hook] 4 "\n\n(fn HOOK)"] (helm-ff-move-to-first-real-candidate helm-ff-update-when-only-one-matched helm-ff-auto-expand-to-home-or-root) "Sole action (Identity)" lambda (candidate) if ((helm-marked-candidates :with-wildcard t) (identity candidate)) minibuffer-window-active-p minibuffer-window (multi1 multi3p) helm-comp-read-get-candidates make-sparse-keymap define-key " " lookup-key helm-ff-RET helm-ff-RET-must-match helm-confirm-and-exit-minibuffer make-composed-keymap t replace-regexp-in-string "helm-maybe-exit-minibuffer" helm-follow-mode-persistent helm-mm-matching-method helm-ff-fuzzy-matching minibuffer-completion-confirm helm-read-file-map minibuffer-completion-predicate minibuffer-completing-file-name helm--completing-file-name helm-mode-reverse-history "helm-confirm-and-exit-minibuffer" helm-make-source format "%s History" helm-source-sync :header-name #[257 "\211\301!P\207" [helm-find-files-doc-header substitute-command-keys] 4 "\n\n(fn NAME)"] :candidates :nohighlight :fuzzy-match :keymap :action #[257 "\211\301!P\207" [helm-find-files-doc-header substitute-command-keys] 4 "\n\n(fn NAME)"] :init #[0 "\211\211\207" [helm-ff-auto-update-initial-value helm-ff-auto-update-flag helm-ff--auto-update-state] 3] :help-message helm-read-file-name-help-message make-byte-code 0 "\303\304\n!?\205\305\n!?\205\nC\300\203E\306 \307\301\242!\310\211:\203>@\262\235\2042\300!\2037B\262A\262\202\211\237\266\204\202I\307\301\242!\"\207" vconcat vector [helm-pattern append file-exists-p helm-ff--invalid-tramp-name-p helm-ff--tramp-hostnames helm-find-files-get-candidates nil] 8 :filtered-candidate-transformer helm-ff-sort-candidates :filter-one-by-one helm-ff-filter-candidate-one-by-one :volatile :cleanup helm-find-files-cleanup helm :sources reverse :input expand-file-name :prompt :resume noresume :case-fold-search :full-frame "" file-equal-p mapcar file-directory-p file-name-as-directory helm-mode--keyboard-quit] 58 (#$ . 27404)])
#@26 
 
(fn FNAME DIR INITIAL)
(defalias 'helm-mode--default-filename #[771 "\204\262\302!\204\303!\262\204):\204)\303\206%    \206%\"\262\203V:\203V\304\211:\203N@\262\303\"B\262A\262\2025\211\237\266\203\211\262\207\302!\203^\207\303\"\207" [default-directory buffer-file-name file-name-absolute-p expand-file-name nil] 9 (#$ . 33668)])
#@194 Generic helm replacement of `read-file-name'.
Don't use it directly, use instead `helm-read-file-name' in your programs.
 
(fn PROMPT &optional DIR DEFAULT-FILENAME MUSTMATCH INITIAL PREDICATE)
(defalias 'helm--generic-read-file-name #[1537 "\30621\206 \206 \307 \206    \310!\211\311\n\"B\312\313\" \236\211\243\211\205-\310!\f\f\f\f\f\f\257\314D\"\f\315\2110\315\316#\262\317=\203a\320\262\304\321!\210\203r\322!G\323V\203r\324\262\203\214\204\214\325\306\326\216\327\330!\210\3311\")\"\210\332=\204\245\320=\204\245;\203\251\333\334\"\204\251\327\330!\210\335\336\337\340\341\"\342\"\343$\216\203\325\203\325\320=\204\325\324=\204\325\331\"\202\203\353\320=\203\353\304\321!\210\331\"\202\332=\203\371\331\"\202\344\345 \346\f\347\350\351\"\352\315\353\354&\262) \355=\203,\211\356\230\204,\357!\202-\211+\266\2130\207" [default-directory this-command helm--file-completion-sources helm-completing-read-handlers-alist ido-mode helm-completion-mode-start-message --cl-block-helm--generic-read-file-name-- helm-this-command helm-symbol-name remove format "*helm-mode-%s*" append nil helm-mode--default-filename ido ido-read-file-name 1 help-function-arglist 8 incompatible throw #[0 "\300\301!\207" [helm-mode 1] 2] helm-mode -1 apply read-file-name string-match "^helm" make-byte-code 0 "\303\304!\210\305\301\203 \304\202\306!\210\300\211\207" vconcat vector [this-command helm-mode 1 ido-mode -1] 2 helm-read-file-name :name :buffer :default :initial-input expand-file-name :alistp :must-match :test file-directory-p "" file-name-as-directory helm-completion-mode-quit-message read-file-name-function] 34 (#$ . 34048)])
#@308 A `read-file-name' handler with history.
Can be added to `helm-completing-read-handlers-alist' for functions
that need a `read-file-name' function with directory history.
The `helm-find-files' history `helm-ff-history' is used here.
 
(fn PROMPT DIR DEFAULT-FILENAME MUSTMATCH INITIAL PREDICATE NAME BUFFER)
(defalias 'helm-read-file-name-handler-1 #[2056 "\306\307=\203 \310\202\f\311\211\206\n\206    \312 \313    \314 \315\f\316\317\320\f\"\321\311\322\323&,\207" [helm-split-window-default-side default-directory helm-reuse-last-window-split-state helm-split-window-inside-p helm-always-two-windows helm-ff-history t same below nil helm-read-file-name :name :history :buffer :default :initial-input expand-file-name :alistp :must-match :test] 31 (#$ . 35796)])
#@27 
 
(fn OLD--FN &rest ARGS)
(defalias 'helm-mode--advice-lisp--local-variables #[385 "\3001\n\301\"0\207\210\302\207" [(error) apply nil] 5 (#$ . 36592)])
#@73 Default sort function for completion-in-region.
 
(fn CANDIDATES SOURCE)
(defalias 'helm-completion-in-region-sort-fn #[514 "\300\301\"\207" [sort helm-generic-sort-fn] 5 (#$ . 36754)])
#@151 Helm replacement of `completion--in-region'.
Can be used as value for `completion-in-region-function'.
 
(fn START END COLLECTION &optional PREDICATE)
(defalias 'helm--completion-in-region #[1027 "    >\203 \n$\207\306\307\310\311#\210\312\216\313\314\"\315 \206!\f\211\316=\317!\320\321\"\322\305!\2035 \206>@\206>\322\323!?\324A\325\"\326\314 `\"        #\327  {\n\n`Z%\330!\330!A\211\203r\211\331\241\210\202s\332\262B\206\206\333\334 \"\206\206    \335\230?\205\213\334\336\337\"\340=\206\241\341 \206\241?\205\241 ?;\203\252\202_\342\322\323!\203\266\206\267\343\203\342\331\211:\203\333@\262\344\345\"\204\324B\262A\262\202\277\211\237\266\203\202\375\203\373\346\347\350\351\352\353!\354\"\355\356%\"\202\375\357\f\360B\361?\362\363\f\203\"\344\364\"\204\"\365!P\202A\344\364\"\203.\331\202A \2037 ;\203<\202AP\366\367\370\371B\206OC??\205VCC\"\372\313\373\374\375 &\211;\203u\376p\\DD$\202\255\211:\203\254\\\377\212b\210\201FE`S\"\203\225\201G\332!\262)D\201H\201I##\266\202\202\255\331*\266\215)\207" [major-mode helm-mode-no-completion-in-region-in-modes helm--old-completion-in-region-function enable-recursive-minibuffers this-command require-match advice-add lisp--local-variables :around helm-mode--advice-lisp--local-variables #[0 "\300\301\302\"\207" [advice-remove lisp--local-variables helm-mode--advice-lisp--local-variables] 3] t buffer-substring-no-properties helm-this-command crm-complete helm-symbol-name format "*helm-mode-%s*" boundp prompt plist-get :annotation-function completion-metadata completion-all-completions last nil 0 string-suffix-p " " "" completion-metadata-get category file helm-mode--in-file-completion-p helm-comp-read "Pattern: " string-match "\\`\\.\\{1,2\\}/\\'" mapcar make-byte-code 257 "\300!\211\203\301\302\303\301\304\305##PB\202\207" vconcat vector [propertize " " display face completions-annotations] 10 "\n\n(fn S)" :name :fuzzy :nomark :marked-candidates :initial-input "/\\'" helm-basename :buffer :fc-transformer append (helm-cr-default-transformer) :exec-when-only-one :quit-when-no-cand #[0 "\300\301\302\303#\210\304\207" [run-with-timer 0.01 nil #[0 "\300\301!\207" [message "[No matches]"] 2] t] 4] :must-match choose-completion-string "," minibuffer-completion-confirm completion-extra-properties helm-completion-in-region-fuzzy-match helm-completion-in-region-default-sort-fn completion-list-insert-choice-function crm-separator looking-back match-string mapconcat identity] 39 (#$ . 36947)])
(defalias 'helm-mode--in-file-completion-p #[0 "r\301!\203 \206p\211q\210\302\303!)\207" [helm-current-buffer buffer-live-p run-hook-with-args-until-success file-name-at-point-functions] 2])
(byte-code "\301\300!\203\n\302!\210\303\304\305\306\307DD\310\311\312\313\314\315\304\316\317& \207" [completion-in-region-function boundp (lambda (#1=#:def-tmp-var) (defconst helm--old-completion-in-region-function #1#)) custom-declare-variable helm-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Helm mode is enabled.\nSee the `helm-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-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group :type boolean] 12)
#@1044 Toggle generic helm completion.
 
All functions in Emacs that use `completing-read'
or `read-file-name' and friends will use helm interface
when this mode is turned on.
 
However you can modify this behavior for functions of your choice
with `helm-completing-read-handlers-alist'.
 
Also commands using `completion-in-region' will be helmized when
`helm-mode-handle-completion-in-region' is non nil, you can modify
this behavior with `helm-mode-no-completion-in-region-in-modes'.
 
Called with a positive arg, turn on unconditionally, with a
negative arg turn off.
You can turn it on with `helm-mode'.
 
Some crap emacs functions may not be supported,
e.g `ffap-alternate-file' and maybe others
You can add such functions to `helm-completing-read-handlers-alist'
with a nil value.
 
About `ido-mode':
When you are using `helm-mode', DO NOT use `ido-mode', instead if you
want some commands use `ido', add these commands to
`helm-completing-read-handlers-alist' with `ido' as value.
 
Note: This mode is incompatible with Emacs23.
 
(fn &optional ARG)
(defalias 'helm-mode #[256 "\306 \307\300\310=\203\311\300!?\202\312!\313V\"\210\314\302!\204%\315\316\317\320\211$\210\203t\321\322!\203Z\323\324\325\326B\327\320$\210\323\324\330\331B\332\320$\210\323\324\333\334B\335\320$\210    \203\371\323\324\336\337B\340\320$\210\202\371\327\332\335\314\305!\203l    \203l\340\3414!\210\202\371\321\342!\203\315\343\311\302!\327\"\211\311\302!=\204\215\307\302\"\210\210\343\311\303!\332\"\211\311\303!=\204\241\307\303\"\210\210\343\311\304!\335\"\211\311\304!=\204\265\307\304\"\210\210\343\311\305!\340\"\211\311\305!=\204\311\307\305\"\210\210\202\371\321\344!\205\324\344\321\345!\205\334\345\321\346!\205\344\346\314\305!\203\364\314\347!\203\364'\3415!\210\350\351\311\300!\203\352\202\353\"\210\354\355!\2030\356\300!\210\306 \203\211\306 \232\2030\357\341\360\311\300!\203+\361\202,\362#\266\210\363 \210\311\300!\207" [helm-mode helm-mode-handle-completion-in-region completing-read-function read-file-name-function read-buffer-function completion-in-region-function current-message set-default toggle default-value prefix-numeric-value 0 boundp cl--assertion-failed (boundp 'completing-read-function) "`helm-mode' not available, upgrade to Emacs-24" nil fboundp add-function advice--add-function :override #[0 "\300\301!\207" [default-value completing-read-function] 2] #[257 "\300\301\"\207" [set-default completing-read-function] 4 "\n\n(fn GV--VAL)"] helm--completing-read-default #[0 "\300\301!\207" [default-value read-file-name-function] 2] #[257 "\300\301\"\207" [set-default read-file-name-function] 4 "\n\n(fn GV--VAL)"] helm--generic-read-file-name #[0 "\300\301!\207" [default-value read-buffer-function] 2] #[257 "\300\301\"\207" [set-default read-buffer-function] 4 "\n\n(fn GV--VAL)"] helm--generic-read-buffer #[0 "\300\301!\207" [default-value completion-in-region-function] 2] #[257 "\300\301\"\207" [set-default completion-in-region-function] 4 "\n\n(fn GV--VAL)"] helm--completion-in-region message remove-function advice--remove-function completing-read-default read-file-name-default read-buffer helm--old-completion-in-region-function run-hooks helm-mode-hook helm-mode-on-hook helm-mode-off-hook called-interactively-p any customize-mark-as-set "" "Helm mode %sabled%s" "en" "dis" force-mode-line-update helm-completion-mode-start-message helm-completion-mode-quit-message] 7 (#$ . 40404) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar helm-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\311\211%\210\312\306!\207" [helm-mode-map helm-mode-hook variable-documentation put "Hook run after entering or leaving `helm-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-mode helm-completion-mode-string boundp nil provide] 6)