/
auto-complete.elc
459 lines (454 loc) · 58.6 KB
/
auto-complete.elc
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
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
;ELC
;;; Compiled by philipp@philipp-desktop on Mon May 31 17:07:34 2010
;;; from file /home/philipp/elisp/auto-complete-1.3/auto-complete.el
;;; in Emacs version 23.1.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19.29")))
(error "`auto-complete.el' was compiled for Emacs 19.29 or later"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'popup)
#@51 Report an error and disable `auto-complete-mode'.
(defalias 'ac-error #[(&optional var) "\300\301\302\217\207" [nil (byte-code "\301\302\"\210\303\304!\210\207" [var message "auto-complete error: %s" auto-complete-mode -1] 3) ((error))] 3 (#$ . 623)])
(custom-declare-group 'auto-complete nil "Auto completion." :group 'completion :prefix "ac-")
#@41 Delay to completions will be available.
(custom-declare-variable 'ac-delay '0.1 '(#$ . 977) :type 'float :group 'auto-complete)
#@60 Non-nil means completion menu will be automatically shown.
(custom-declare-variable 'ac-auto-show-menu '0.8 '(#$ . 1111) :type '(choice (const :tag "Yes" t) (const :tag "Never" nil) (float :tag "Timer")) :group 'auto-complete)
#@67 Non-nil means menu will be showed immediately on `auto-complete'.
(custom-declare-variable 'ac-show-menu-immediately-on-auto-complete 't '(#$ . 1344) :type 'boolean :group 'auto-complete)
#@71 Non-nil means expand whole common part on first time `auto-complete'.
(custom-declare-variable 'ac-expand-on-auto-complete 't '(#$ . 1538) :type 'boolean :group 'auto-complete)
#@64 Non-nil means disable automatic completion on specified faces.
(custom-declare-variable 'ac-disable-faces ''(font-lock-comment-face font-lock-string-face font-lock-doc-face) '(#$ . 1721) :type '(repeat symbol) :group 'auto-complete)
#@57 Non-nil means disble flymake temporarily on completing.
(custom-declare-variable 'ac-stop-flymake-on-completing 't '(#$ . 1960) :type 'boolean :group 'auto-complete)
#@35 Non-nil means use fuzzy matching.
(custom-declare-variable 'ac-use-fuzzy 't '(#$ . 2132) :type 'boolean :group 'auto-complete)
#@29 Cursor color in fuzzy mode.
(custom-declare-variable 'ac-fuzzy-cursor-color '"red" '(#$ . 2265) :type 'string :group 'auto-complete)
#@51 Non-nil means use intelligent completion history.
(custom-declare-variable 'ac-use-comphist 't '(#$ . 2404) :type 'boolean :group 'auto-complete)
#@47 Percentage of ignoring low scored candidates.
(custom-declare-variable 'ac-comphist-threshold '0.7 '(#$ . 2556) :type 'float :group 'auto-complete)
#@31 Completion history file name.
(custom-declare-variable 'ac-comphist-file '(expand-file-name (concat (if (boundp 'user-emacs-directory) user-emacs-directory "~/.emacs.d/") "/ac-comphist.dat")) '(#$ . 2710) :type 'string :group 'auto-complete)
#@31 Non-nil means use quick help.
(custom-declare-variable 'ac-use-quick-help 't '(#$ . 2958) :type 'boolean :group 'auto-complete)
#@27 Delay to show quick help.
(custom-declare-variable 'ac-quick-help-delay '1.5 '(#$ . 3092) :type 'float :group 'auto-complete)
#@31 Max height of candidate menu.
(custom-declare-variable 'ac-menu-height '10 '(#$ . 3224) :type 'integer :group 'auto-complete)
(defvaralias 'ac-candidate-menu-height 'ac-menu-height)
#@27 Max height of quick help.
(custom-declare-variable 'ac-quick-help-height '20 '(#$ . 3412) :type 'integer :group 'auto-complete)
#@64 Prefer X tooltip than overlay popup for displaying quick help.
(custom-declare-variable 'ac-quick-help-prefer-x 't '(#$ . 3546) :type 'boolean :group 'auto-complete)
#@57 Limit number of candidates. Non-integer means no limit.
(custom-declare-variable 'ac-candidate-limit 'nil '(#$ . 3718) :type 'integer :group 'auto-complete)
(defvaralias 'ac-candidate-max 'ac-candidate-limit)
#@46 Major modes `auto-complete-mode' can run on.
(custom-declare-variable 'ac-modes ''(emacs-lisp-mode lisp-interaction-mode c-mode cc-mode c++-mode java-mode clojure-mode scala-mode scheme-mode ocaml-mode tuareg-mode perl-mode cperl-mode python-mode ruby-mode ecmascript-mode javascript-mode js-mode js2-mode php-mode css-mode makefile-mode sh-mode fortran-mode f90-mode ada-mode xml-mode sgml-mode) '(#$ . 3933) :type '(repeat symbol) :group 'auto-complete)
#@63 Regexp to indicate what packages can work with auto-complete.
(custom-declare-variable 'ac-compatible-packages-regexp '"^ac-" '(#$ . 4395) :type 'string :group 'auto-complete)
#@76 Trigger commands that specify whether `auto-complete' should start or not.
(custom-declare-variable 'ac-trigger-commands ''(self-insert-command) '(#$ . 4577) :type '(repeat symbol) :group 'auto-complete)
#@79 Trigger commands that specify whether `auto-complete' should continue or not.
(custom-declare-variable 'ac-trigger-commands-on-completing ''(delete-backward-char backward-delete-char backward-delete-char-untabify) '(#$ . 4787) :type '(repeat symbol) :group 'auto-complete)
#@214 Non-nil means `auto-complete' will start by typing this key.
If you specify this TAB, for example, `auto-complete' will start by typing TAB,
and if there is no completions, an original command will be fallbacked.
(custom-declare-variable 'ac-trigger-key 'nil '(#$ . 5067) :type 'string :group 'auto-complete :set #[(symbol value) "\302 \"\210 \205 \303\304!\205 \304 !\207" [symbol value set-default fboundp ac-set-trigger-key] 3])
#@236 Non-nil means completion will be started automatically.
Positive integer means if a length of a word you entered is larger than the value,
completion will be started automatically.
If you specify `nil', never be started automatically.
(custom-declare-variable 'ac-auto-start '2 '(#$ . 5509) :type '(choice (const :tag "Yes" t) (const :tag "Never" nil) (integer :tag "Require")) :group 'auto-complete)
#@38 List of string to ignore completion.
(custom-declare-variable 'ac-ignores 'nil '(#$ . 5916) :type '(repeat string) :group 'auto-complete)
#@154 Non-nil means auto-complete ignores case.
If this value is `smart', auto-complete ignores case only when
a prefix doen't contain any upper case letters.
(custom-declare-variable 'ac-ignore-case ''smart '(#$ . 6061) :type '(choice (const :tag "Yes" t) (const :tag "Smart" smart) (const :tag "No" nil)) :group 'auto-complete)
#@62 Non-nil means `auto-complete' works based on Do What I Mean.
(custom-declare-variable 'ac-dwim 't '(#$ . 6391) :type 'boolean :group 'auto-complete)
#@79 Non-nil means a special keymap `ac-menu-map' on completing menu will be used.
(custom-declare-variable 'ac-use-menu-map 'nil '(#$ . 6546) :type 'boolean :group 'auto-complete)
#@104 Non-nil means `overriding-local-map' will be used to hack for overriding key events on auto-copletion.
(custom-declare-variable 'ac-use-overriding-local-map 'nil '(#$ . 6729) :type 'boolean :group 'auto-complete)
(byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313\304\305%\207" [custom-declare-face ac-completion-face ((t (:foreground "darkgray" :underline t))) "Face for inline completion" :group auto-complete ac-candidate-face ((t (:background "lightgray" :foreground "black"))) "Face for candidate." ac-selection-face ((t (:background "steelblue" :foreground "white"))) "Face for selected candidate."] 6)
#@32 Hook for `auto-complete-mode'.
(defvar auto-complete-mode-hook nil (#$ . 7380))
#@47 Dummy variable to suppress compiler warnings.
(defvar auto-complete-mode nil (#$ . 7466))
#@19 Old cursor color.
(defvar ac-cursor-color nil (#$ . 7562))
#@29 Inline completion instance.
(defvar ac-inline nil (#$ . 7627))
#@16 Menu instance.
(defvar ac-menu nil (#$ . 7696))
#@34 Flag to show menu on timer tick.
(defvar ac-show-menu nil (#$ . 7750))
#@61 Cons of prefix marker and selected item of last completion.
(defvar ac-last-completion nil (#$ . 7827))
#@21 Quick help instance
(defvar ac-quick-help nil (#$ . 7937))
#@66 Non-nil means `auto-complete-mode' is now working on completion.
(defvar ac-completing nil (#$ . 8002))
#@40 Buffer where auto-complete is started.
(defvar ac-buffer nil (#$ . 8112))
#@24 Start point of prefix.
(defvar ac-point nil (#$ . 8192))
#@33 Last point of updating pattern.
(defvar ac-last-point nil (#$ . 8255))
#@16 Prefix string.
(defvar ac-prefix nil (#$ . 8332))
(defvaralias 'ac-target 'ac-prefix)
#@26 Last selected candidate.
(defvar ac-selected-candidate nil (#$ . 8424))
#@92 Common part string of meaningful candidates.
If there is no common part, this will be nil.
(defvar ac-common-part nil (#$ . 8502))
#@87 Common part string of whole candidates.
If there is no common part, this will be nil.
(defvar ac-whole-common-part nil (#$ . 8639))
#@28 Overlay for prefix string.
(defvar ac-prefix-overlay nil (#$ . 8777))
#@24 Completion idle timer.
(defvar ac-timer nil (#$ . 8853))
#@23 Show menu idle timer.
(defvar ac-show-menu-timer nil (#$ . 8916))
#@24 Quick help idle timer.
(defvar ac-quick-help-timer nil (#$ . 8988))
#@17 Flag to update.
(defvar ac-triggered nil (#$ . 9062))
#@46 Limit number of candidates for each sources.
(defvar ac-limit nil (#$ . 9122))
#@21 Current candidates.
(defvar ac-candidates nil (#$ . 9207))
#@42 Candidates cache for individual sources.
(defvar ac-candidates-cache nil (#$ . 9272))
#@42 Non-nil means fuzzy matching is enabled.
(defvar ac-fuzzy-enable nil (#$ . 9364))
#@48 Non-nil means DWIM completion will be allowed.
(defvar ac-dwim-enable nil (#$ . 9452))
#@93 Auto-complete mode map. It is also used for trigger key command. See also `ac-trigger-key'.
(defvar ac-mode-map (make-sparse-keymap) (#$ . 9545))
#@24 Keymap for completion.
(defvar ac-completing-map (byte-code "\304 \305\306\307#\210\305\310\311#\210\305\312\313#\210\305\314\315#\210\305\316\317#\210\305\320\321#\210\305\322\317#\210\305\323\321#\210\305\324\325#\210\305\326\327#\210\305\330\325#\210\305\331\327#\210\305\332\333#\210\305\334\335#\210\305\336\333#\210\305\337\335#\210\340\341 \nW\203\233 \342\343\344 T\"!\211\345\346\347\350\351\352\353\354 EE\355BBFM\210\305\356\343\357 T\"! #\210) T\211\202h *)\207" [map i #1=#:--cl-dotimes-temp-- symbol make-sparse-keymap define-key " " ac-expand "" ac-complete [134217737] auto-complete "" ac-isearch "\356" ac-next "\360" ac-previous [down] [up] [f1] ac-help [M-f1] ac-persist-help [67108927] [201326655] [C-down] ac-quick-help-scroll-down [C-up] ac-quick-help-scroll-up "\216" "\220" 9 0 intern format "ac-complete-%d" lambda nil (interactive) when and (ac-menu-live-p) popup-select ac-menu ((ac-complete)) read-kbd-macro "M-%s"] 11) (#$ . 9697))
(defvaralias 'ac-complete-mode-map 'ac-completing-map)
#@43 Keymap for completion on completing menu.
(defvar ac-menu-map (byte-code "\302 \303\304\305#\210\303\306\307#\210\310 \"\210)\207" [map ac-completing-map make-sparse-keymap define-key "" ac-next "" ac-previous set-keymap-parent] 4) (#$ . 10744))
(byte-code "\303B\304\303!\204 \305\303\306 \307 \n\"\210 )\"\210\303\207" [current-load-list map ac-completing-map ac-current-map default-boundp set-default make-sparse-keymap set-keymap-parent] 5)
#@25 Default match function.
(defvar ac-match-function 'all-completions (#$ . 11206))
#@36 Prefix definitions for common use.
(defvar ac-prefix-definitions '((symbol . ac-prefix-symbol) (file . ac-prefix-file) (valid-file . ac-prefix-valid-file) (c-dot . ac-prefix-c-dot) (c-dot-ref . ac-prefix-c-dot-ref)) (#$ . 11293))
#@25 Sources for completion.
(defvar ac-sources '(ac-source-words-in-same-mode-buffers) (#$ . 11529))
(make-variable-buffer-local 'ac-sources)
#@34 Compiled source of `ac-sources'.
(defvar ac-compiled-sources nil (#$ . 11673))
#@68 Current working sources. This is sublist of `ac-compiled-sources'.
(defvar ac-current-sources nil (#$ . 11758))
#@26 Do not use this anymore.
(defvar ac-omni-completion-sources nil (#$ . 11876))
(byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\304\207" [current-load-list ac-current-prefix-def default-boundp set-default nil ac-ignoring-prefix-def] 3)
#@33 Database of completion history.
(defvar ac-comphist nil (#$ . 12161))
(defalias 'ac-comphist-make-tab #[nil "\300\301\302\"\207" [make-hash-table :test equal] 3])
(put 'ac-comphist-make-tab 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ac-comphist-tab #[(db) "@\207" [db] 1])
(put 'ac-comphist-tab 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ac-comphist-cache #[(db) "A@\207" [db] 1])
(put 'ac-comphist-cache 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ac-comphist-make #[(&optional tab) "\206 \301\302\303\"\301\302\303\304\305$D\207" [tab make-hash-table :test equal :weakness t] 6])
(defalias 'ac-comphist-get #[(db string &optional create) "\211@)\305\n \"\f\203 \204 \306\nG\307\"\310\n #\210 *\207" [db tab string index create gethash make-vector 0 puthash] 5])
(defalias 'ac-comphist-add #[(db string prefix) " GS^\304X\205( \305 !\306\n \307#\211 HTI\210\310 \n\211A@)\")\207" [prefix string db stat 0 substring-no-properties ac-comphist-get t remhash] 5])
(defalias 'ac-comphist-score #[(db string prefix) " GS^\306X\203\241 \307 \n\211A@)\"\211\203 H\206\237 \310\n \"\311 \211 \203v \306 G \312 \313\245 \314\211 W\203t \315Z!Z\316\317[_!T\245\fH_\\T\211\202C .\f\320\321 GZ\322\245Z]\\ \204\230 \323 G\314\"\324 \n\211A@)#\210 \fI\210\f*)\207\325\207" [prefix string db cache score stat 0 gethash ac-comphist-get 0.0 5 6.0 nil abs 1.0 exp 0.0 0.3 100.0 make-vector puthash 0.0 p #1=#:--cl-var-- a d x r] 6])
(defalias 'ac-comphist-sort #[(db collection prefix &optional threshold) "\306\307\211\211\310\311\312\310\313\f\"\314\"\"\203 \n B\202 ,\207" [cur total n result collection threshold nil 0 mapcar #[(a) "\203 \203 \n _Y\203 \305\202 T\fA\\\f@\207" [cur threshold total n a nil] 3] sort #[(string) "\305 \n#\f \\ )B\207" [db string prefix score total ac-comphist-score] 4] #[(a b) "A AW\207" [b a] 2]] 6])
(defalias 'ac-comphist-serialize #[(db) "\302\303\304 \211@)\"\210)C\207" [alist db nil maphash #[(k v) " B\nB\211\207" [k v alist] 2]] 4])
(defalias 'ac-comphist-deserialize #[(sexp) "\300\301\302\217\207" [nil (byte-code "\302\303\304\305\"\306\307 @\"\210)!\207" [tab sexp ac-comphist-make make-hash-table :test equal mapc #[(cons) "\302@A #\207" [cons tab puthash] 4]] 4) ((error (message "Invalid comphist db.") nil))] 3])
(defalias 'ac-comphist-init #[nil "\300 \210\301\302\303\"\207" [ac-comphist-load add-hook kill-emacs-hook ac-comphist-save] 3])
(defalias 'ac-comphist-load #[nil "\303!\205\n \304\305\306\217\211\206 \307 \211)\207" [ac-comphist-file db ac-comphist file-exists-p nil (byte-code "\302\303!rq\210\304\216\305 !\210eb\210\306\307p!!+\207" [#1=#:temp-buffer ac-comphist-file generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents ac-comphist-deserialize read] 3) ((error)) ac-comphist-make] 4 nil nil])
(defalias 'ac-comphist-save #[nil "\300\301!\210\302\303\304\217\207" [require pp nil (byte-code "\303\304!rq\210\305\216\306\307 !p\"\210\310ed\n#+\207" [#1=#:temp-buffer ac-comphist ac-comphist-file generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) pp ac-comphist-serialize write-region] 4) ((error))] 3 nil nil])
#@73 Return non-nil if current line is long and wrapped to next visual line.
(defalias 'ac-menu-at-wrapper-line-p #[nil "?\205 \301 \212\302\303!\210\301 )=\207" [truncate-lines line-beginning-position vertical-motion 1] 3 (#$ . 15522)])
#@37 Default prefix definition function.
(defalias 'ac-prefix-symbol #[nil "\300\301!\210\302\303!\242\207" [require thingatpt bounds-of-thing-at-point symbol] 2 (#$ . 15763)])
(defalias 'ac-prefix-default 'ac-prefix-symbol)
#@14 File prefix.
(defalias 'ac-prefix-file #[nil "\301\302\303\304#\211\205\f T)\207" [point re-search-backward "[\"<>' \n]" nil t] 5 (#$ . 15989)])
#@41 Existed (or to be existed) file prefix.
(defalias 'ac-prefix-valid-file #[nil "\305 `\306\307\310#\211\205 \nT)\206 \211 {\211 \205= \311\312\f\"\204< \311\313\f\"\2051 \314\315\f\"\211\205= \316\f!\205= ,\207" [line-beg end point start file line-beginning-position re-search-backward "[\"<>'= \n]" t string-match "^/" "^[^/]*/" match-string 0 file-directory-p] 5 (#$ . 16144)])
#@33 C-like languages dot(.) prefix.
(defalias 'ac-prefix-c-dot #[nil "\300\301\302\303#\205\n \304\224\207" [re-search-backward "\\.\\(\\(?:[a-zA-Z0-9][_a-zA-Z0-9]*\\)?\\)\\=" nil t 1] 4 (#$ . 16541)])
#@51 C-like languages dot(.) and reference(->) prefix.
(defalias 'ac-prefix-c-dot-ref #[nil "\300\301\302\303#\205\n \304\224\207" [re-search-backward "\\(?:\\.\\|->\\)\\(\\(?:[a-zA-Z0-9][_a-zA-Z0-9]*\\)?\\)\\=" nil t 1] 4 (#$ . 16745)])
#@95 Define new prefix definition.
You can not use it in source definition like (prefix . `NAME').
(defalias 'ac-define-prefix #[(name prefix) " B\nB\211\207" [name prefix ac-prefix-definitions] 2 (#$ . 16984)])
(defalias 'ac-match-substring #[(prefix candidates) "\306!\n\307\211 :\203$ @\310 \f\"\203 \fB A\211\202 \237,\207" [prefix regexp candidates #1=#:--cl-var-- candidate #2=#:--cl-var-- regexp-quote nil string-match] 4])
(defalias 'ac-source-entity #[(source) "9\203 J\207\207" [source] 1])
(put 'ac-source-entity 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ac-source-available-p #[(source) "9\203 \306N\203 \306N\307=\207\2119\203 J\202 )\306 \236\211A\n\203@ 9\2035 \202A <\205~ \310 !\202A \307\205~ \311\312 \" \313 \307 \313 \f:\203r \f@\314\313\307#\204k \313\211\211\203r \fA\211\202R \203{ \307\202} , 9\203\224 \315\306\203\221 \307\202\222 \316#\210,\207" [source src avail-pair avail-cond #1=#:--cl-var-- feature available t eval assoc-default depends nil require put no #2=#:--cl-var-- #3=#:--cl-var--] 6])
#@49 Compiled `SOURCES' into expanded sources style.
(defalias 'ac-compile-sources #[(sources) "\306\211 :\203x @\307\n!\203q \n\2119\203 \nJ\202! \n)\310\311!\211 \205- \311K \312\216\311\313M\210\314\315\n\" \316A\"\211 \203P \311\315\"\210\202Z \204Z \311\315\317\"\210*\320\n\236\211 A\321=\203l \322\241\210,\n B A\211\202 \237+\207" [sources #1=#:--cl-var-- source #2=#:--cl-var-- #3=#:--cl-letf-bound-- #4=#:--cl-letf-save-- nil ac-source-available-p fboundp add-attribute ((byte-code "\203 \302 M\210\202 \303\302!\210\302\207" [#3# #4# add-attribute fmakunbound] 2)) #[(name value &optional append) "\303\304 B\n#\207" [name value append add-to-list source] 4] assoc prefix assoc-default ac-prefix-default match substring ac-match-substring ac-prefix-definitions real] 4 (#$ . 18083)])
(defalias 'ac-compiled-sources #[nil "\206 \302 !\211\207" [ac-compiled-sources ac-sources ac-compile-sources] 2])
(defalias 'ac-menu-live-p #[nil "\301!\207" [ac-menu popup-live-p] 2])
(put 'ac-menu-live-p 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ac-menu-create #[(point width height) "\304 \n\305\306\307\310\311\312\313\306\314\306\315\316&\211\207" [point width height ac-menu popup-create :around t :face ac-candidate-face :selection-face ac-selection-face :symbol :scroll-bar :margin-left 1] 16])
(defalias 'ac-menu-delete #[nil "\205 \301!\210\302\211\207" [ac-menu popup-delete nil] 2])
(defalias 'ac-inline-marker #[nil "@\207" [ac-inline] 1])
(put 'ac-inline-marker 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ac-inline-overlay #[nil "A@\207" [ac-inline] 1])
(put 'ac-inline-overlay 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ac-inline-live-p #[nil "\205 A@\205 \301\207" [ac-inline t] 1])
(put 'ac-inline-live-p 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ac-inline-show #[(point string) "\204 \306 \307D\212A@\310\304 !\310 b\210\307 l\204I \fW\203I \307f\211 \203I \311=\204I \312 !\\ T\307u\210\202 ) b\210\310U\203i @ \307\223\210\313 \314c\210)\315\211\202~ \fX\204~ \fV\203~ \316\fZ\317\"P\320 \321\322# \203\235 \323 \211 \\#\210\324 \325\307#\210\202\273 \326 \211 \\\" A \240\210\324 \327\330#\210\324 \331 #\210\324 \332 \310\315O#\210\324 \333 \315\307O#\210\324 \301\n#.\207" [ac-inline string original-string length string-width width make-marker nil 0 9 char-width t " " 1 make-string 32 propertize face ac-completion-face move-overlay overlay-put invisible make-overlay priority 9999 keymap display after-string overlay point c buffer-undo-list ac-current-map] 7])
(defalias 'ac-inline-delete #[nil "\205 A@\205 \301 \210\302A@!\210\303\211\207" [ac-inline ac-inline-hide delete-overlay nil] 2])
(defalias 'ac-inline-hide #[nil "\205C A@\205C A@@\304\211\205B \305\n!\203+ \212\nb\210\306\307!\210\n\310\211\223\210)\311 ee#\210\312 \313\304#\210\312 \314\310#\210\312 \315\310#+\207" [ac-inline buffer-undo-list marker overlay t marker-position delete-char 1 nil move-overlay overlay-put invisible display after-string] 5])
(defalias 'ac-inline-update #[nil "\203* \203* \n;\203* \nG G\211 V\203& \305 \210\306`\n \307O\"\202( \310 *\207\310 \207" [ac-completing ac-prefix ac-common-part prefix-length common-part-length ac-inline-hide ac-inline-show nil ac-inline-delete] 6])
(defalias 'ac-put-prefix-overlay #[nil "?\205? \306\nd=\203# \n`=\203# \212\307\306\310 \311\216\312c\210-\307\313\n`T\306\307\211%\314\315\316#\210\314\317\320 #\210\314\301 #)\207" [ac-prefix-overlay newline ac-point modified buffer-read-only buffer-undo-list nil t buffer-modified-p ((set-buffer-modified-p modified)) "\n" make-overlay overlay-put priority 9999 keymap make-sparse-keymap] 6])
(defalias 'ac-remove-prefix-overlay #[nil "\205( \304\305\"\203% \212\306\307\310 \311\216db\210`Sf\312=\203$ \313\314!\210-\315!\207" [ac-prefix-overlay modified buffer-read-only buffer-undo-list overlay-get newline t nil buffer-modified-p ((set-buffer-modified-p modified)) 10 delete-char -1 delete-overlay] 3])
(defalias 'ac-activate-completing-map #[nil "\203 \203 \306\n \"\210\f\203 \204 \n \205$ \306\307 \310\"\n\"\207" [ac-show-menu ac-use-menu-map ac-current-map ac-menu-map ac-use-overriding-local-map overriding-terminal-local-map set-keymap-parent overlay-get keymap ac-prefix-overlay] 4])
(defalias 'ac-deactivate-completing-map #[nil "\305 \"\210\n\203 =\203 \306\f\205 \305\307\f\310\"\306\"\207" [ac-current-map ac-completing-map ac-use-overriding-local-map overriding-terminal-local-map ac-prefix-overlay set-keymap-parent nil overlay-get keymap] 4])
(defalias 'ac-selected-candidate #[nil "\205 \301!\207" [ac-menu popup-selected-item] 2])
(put 'ac-selected-candidate 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'ac-prefix #[(requires ignore-list) "`\306\211\306\307 \306\211 \306 \f:\203\320 \f@\310\311\" \310\312\"\206. \n\206. \313\n\204\276 \235\204\276 \212 9\203I \202\240 ;\203d \314 \315P\306\316#\205\240 \313\224\206\240 \317\224\202\240 \242;\203\234 @ A@\320 8 \314\315P\306\316#\205\230 \203\220 \321\202\221 \322\206\227 \317!+\202\240 \323 !\211\203\266 \250\203\266 ZW\203\266 \306 \203\275 ) \n\232\203\311 B\fA\211\202 \205\331 \n \237E.\207" [current point prefix-def sources #1=#:--cl-var-- source nil ac-compiled-sources assoc-default prefix requires 1 re-search-backward "\\=" t 0 2 match-end match-beginning eval req ignore-list group end regexp] 5])
#@49 Initialize current sources to start completion.
(defalias 'ac-init #[nil "\305 \305\211 \n:\2032 \n@\306\307 \"\211\203+ \212\310\f!\203& \f \210\202* \311\f!\210)\nA\211\202 +\305\207" [ac-candidates-cache ac-current-sources #1=#:--cl-var-- source function nil assoc-default init functionp eval] 4 (#$ . 23651)])
(defalias 'ac-candidates-1 #[(source) "\306\236\307\310\"\307\303\"\307\304\" \307\305\" \307\311\"\206! \307\312\"\206. \307\313\" \n\307\314\" \f \205> \236\211 A \204o \212\315\n!\203U \n \202X \316\n!)\317\320\" \203o BB\307\321\"\206x \"\250\203\236 \322V\203\236 GV\203\236 S\233\323\241\210\317\324\"\211.\n\207" [source do-cache function action document symbol cache assoc-default candidates limit face candidate-face selection-face functionp eval mapcar #[(candidate) ":\203 \301@\302A#\207\207" [candidate propertize value] 4] match 1 nil #[(candidate) "\306\301 \302\n\303 \307\f\305& \207" [candidate action symbol document face selection-face popup-item-propertize popup-face] 12] ac-limit ac-candidates-cache ac-match-function ac-prefix] 4])
#@41 Produce candidates for current sources.
(defalias 'ac-candidates #[nil "\306=\206 \307=\205 \310\311\312\n\")? \nG \310\211 :\203A @\313\314!\"A\211\202% \315!\210\203\305 \203\305 \203\245 \316\f$\211 @ A \317V\205v S\233\211 A \203\206 \310\241\210\320\n\" \320\n\" \203\237 \241\210-\202\321 \316\f#\211\205\267 \321@! \320\n\" \202\321 \320\n\"\211 .\207" [ac-ignore-case case-fold-search ac-prefix completion-ignore-case prefix-len ac-current-sources t smart nil string-match "[[:upper:]]" append ac-candidates-1 delete-dups ac-comphist-sort 0 try-completion popup-x-to-string #1=#:--cl-var-- source candidates ac-use-comphist ac-comphist ac-show-menu ac-comphist-threshold pair n result cons cdr ac-common-part ac-whole-common-part] 6 (#$ . 24802)])
#@61 Update candidates of menu to `ac-candidates' and redraw it.
(defalias 'ac-update-candidates #[(cursor scroll-top) "\306H >\204\f \307\310!\210\311\nI\210\306H >\204 \307\312!\210\313 I\210\fG\314U\f\2034 \315\316 \210\202: \317\320 \210\321 \210\322\f\"\210\204R \fG\314X\203R \323!\207\205Z \324!\207" [ac-menu cl-struct-popup-tags cursor scroll-top ac-candidates ac-dwim-enable 0 error "popup-cursor storing a non-popup" 18 "popup-scroll-top storing a non-popup" 20 1 t ac-activate-completing-map nil ac-deactivate-completing-map ac-inline-update popup-set-list popup-hide popup-draw ac-completing ac-fuzzy-enable ac-show-menu] 3 (#$ . 25660)])
#@62 Force to redraw candidate menu with current `ac-candidates'.
(defalias 'ac-reposition #[nil "\306H >\204\f \307\310!\210\311H\306H >\204 \307\312!\210\313H\314 \210\315\f\316!\306H >\2044 \307\317!\210\320H#\210\321 \n\"*\207" [ac-menu cl-struct-popup-tags scroll-top cursor ac-point ac-candidates 0 error "popup-cursor accessing a non-popup" 18 "popup-scroll-top accessing a non-popup" 20 ac-menu-delete ac-menu-create popup-preferred-width "popup-height accessing a non-popup" 5 ac-update-candidates] 5 (#$ . 26330)])
#@26 Cleanup auto completion.
(defalias 'ac-cleanup #[nil "\203 \306!\210 \2038 \n\2038 \204 \f\235\203 \f \2038 \307\n \2034 Z\2026 \fG#\210\310 \210\311 \210\312 \210\313 \210\314 \210\315 \210\316 \210\317 \210\320\211\320\211\320\211\320\211\320\211\320\211\320\211\320\211 \320\211 \320\211 \320\211!\211\"\207" [ac-cursor-color ac-use-comphist ac-comphist ac-selected-candidate ac-prefix ac-candidates set-cursor-color ac-comphist-add ac-deactivate-completing-map ac-remove-prefix-overlay ac-remove-quick-help ac-inline-delete ac-menu-delete ac-cancel-timer ac-cancel-show-menu-timer ac-cancel-quick-help-timer nil ac-point ac-last-point ac-inline ac-show-menu ac-menu ac-completing ac-prefix-overlay ac-common-part ac-whole-common-part ac-triggered ac-limit ac-candidates-cache ac-fuzzy-enable ac-dwim-enable ac-compiled-sources ac-current-sources ac-current-prefix-def ac-ignoring-prefix-def] 6 (#$ . 26866)])
#@19 Abort completion.
(defalias 'ac-abort #[nil "\300 \207" [ac-cleanup] 1 (#$ . 27838)])
(put 'ac-abort 'byte-optimizer 'byte-compile-inline-expand)
#@270 Expand `STRING' into the buffer and update `ac-prefix' to `STRING'.
This function records deletion and insertion sequences by `undo-boundary'.
If `remove-undo-boundary' is non-nil, this function also removes `undo-boundary'
that have been made before in this function.
(defalias 'ac-expand-string #[(string &optional remove-undo-boundary) " `{\232?\205C \306 \210\n\203 \307\212 `|\210* AA\202# `|\210c\210\n\203: \211 A@)\250\203: \211AA\241\210\306 \210\211\207" [string ac-point remove-undo-boundary buffer-undo-list x ac-selected-candidate undo-boundary nil ac-prefix] 4 (#$ . 27991)])
#@98 Set `ac-trigger-key' to `KEY'. It is recommemded to use this function instead of calling `setq'.
(defalias 'ac-set-trigger-key #[(key) "\203\f \303 \304!\305#\210\n\n\205 \303 \304\n!\306#\207" [ac-trigger-key ac-mode-map key define-key read-kbd-macro nil ac-trigger-key-command] 4 (#$ . 28600)])
(defalias 'ac-set-timer #[nil "?\205\f \302 \211\303#\211\207" [ac-timer ac-delay run-with-idle-timer ac-update-greedy] 4])
(defalias 'ac-cancel-timer #[nil "\301!\205 \302!\210\303\211\207" [ac-timer timerp cancel-timer nil] 2])
(defalias 'ac-update #[(&optional force) "\205\211 \205\211 \n\204 \205\211 \f?\205\211 \306 \210\305 \307! \203s \310H>\2043 \311\312!\210\313HY\204s \310H>\204K \311\312!\210\313H\314ZX\204s \310H>\204e \311\315!\210\316H\310V\203\202 \317 \203\202 \320 \210\321 \210\322#\210)\323\310\211\"\210\324\207" [auto-complete-mode ac-prefix ac-triggered force isearch-mode ac-candidates ac-put-prefix-overlay popup-preferred-width 0 error "popup-width accessing a non-popup" 4 10 "popup-direction accessing a non-popup" 7 ac-menu-at-wrapper-line-p ac-inline-hide ac-menu-delete ac-menu-create ac-update-candidates t preferred-width ac-menu cl-struct-popup-tags ac-point ac-menu-height] 4])
(defalias 'ac-update-greedy #[(&optional force) "\304\305 !\211\203 \n\204 \306\307 \"\210\310\311\312\"\210 \204 )\207" [result force ac-candidates ac-current-prefix-def nil ac-update add-to-list ac-ignoring-prefix-def ac-start :force-init t] 3])
(defalias 'ac-set-show-menu-timer #[nil "\250\204 \302!\205 ?\205 \303\211\304#\211\207" [ac-auto-show-menu ac-show-menu-timer floatp run-with-idle-timer ac-show-menu] 4])
(defalias 'ac-cancel-show-menu-timer #[nil "\301!\205 \302!\210\303\211\207" [ac-show-menu-timer timerp cancel-timer nil] 2])
(defalias 'ac-show-menu #[nil "\301=?\205 \301\302 \210\303 \210\304\301!\207" [ac-show-menu t ac-inline-hide ac-remove-quick-help ac-update] 2])
(defalias 'ac-help #[(&optional persist) "\205 \302 \"\207" [ac-menu persist popup-menu-show-help] 3 nil "P"])
(defalias 'ac-persist-help #[nil "\300\301!\207" [ac-help t] 2 nil nil])
(defalias 'ac-last-help #[(&optional persist) "\205 \302A \"\207" [ac-last-completion persist popup-item-show-help] 3 nil "P"])
(defalias 'ac-last-persist-help #[nil "\300\301!\207" [ac-last-help t] 2 nil nil])
(defalias 'ac-set-quick-help-timer #[nil "\205 ?\205 \303\n\211\304#\211\207" [ac-use-quick-help ac-quick-help-timer ac-quick-help-delay run-with-idle-timer ac-quick-help] 4])
(defalias 'ac-cancel-quick-help-timer #[nil "\301!\205 \302!\210\303\211\207" [ac-quick-help-timer timerp cancel-timer nil] 2])
(defalias 'ac-pos-tip-show-quick-help #[(menu &optional item &rest args) "\306\307\"\310 \311H\f>\204 \312\313!\210 \314H \315 \"\211 ;\205m \316 !\203. \317\2020 \310\320\321 \206D \203C \322 \"\206D `\310\311\310\211\n?\205P \311& \210\306\323\"?\205m \324 \210\325\216\326\306\327\"!B)\317,\207" [args point around menu cl-struct-popup-tags parent-offset plist-get :point nil 0 error "popup-offset accessing a non-popup" 19 popup-menu-documentation popup-hidden-p t pos-tip-show popup-tip-face popup-child-point :nowait clear-this-command-keys ((pos-tip-hide)) read-event :prompt item doc popup-tip-max-width unread-command-events] 11])
(defalias 'ac-quick-help #[(&optional force) "\204 ?\2057 \306\n!\2057 ?\2057 \f\203( \307=\203( \310\311!\203( \312\202) \313\n\314\315\316\317\320&\211\207" [force this-command ac-menu ac-quick-help ac-quick-help-prefer-x window-system popup-live-p x featurep pos-tip ac-pos-tip-show-quick-help popup-menu-show-quick-help nil :point :height :nowait t ac-point ac-quick-help-height] 9 nil nil])
(defalias 'ac-remove-quick-help #[nil "\205 \301!\210\302\211\207" [ac-quick-help popup-delete nil] 2])
(defalias 'ac-last-quick-help #[nil "\205C \305@!p=\205C \306A!\307@!\211;\205B \2036 \f\310=\2036 \311\312!\2036 \313\n\314 \314\315%\202B \316\n\317 \320\321\322\321\323\321& *\207" [ac-last-completion point doc ac-quick-help-prefer-x window-system marker-buffer popup-item-documentation marker-position x featurep pos-tip pos-tip-show nil 0 popup-tip :point :around t :scroll-bar :margin] 11 nil nil])(if macro-declaration-function (funcall macro-declaration-function (quote ac-define-quick-help-command) (quote (declare (indent 2)))))
(defalias 'ac-define-quick-help-command '(macro . #[(name arglist &rest body) "\303\304 \nBBB\305\306D\307BBE\207" [name arglist body progn defun put quote ('ac-quick-help-command t)] 5]))
(defalias 'ac-quick-help-scroll-down #[nil "\205 \301!\207" [ac-quick-help popup-scroll-down] 2 nil nil])
(put 'ac-quick-help-scroll-down 'ac-quick-help-command t)
(defalias 'ac-quick-help-scroll-up #[nil "\205 \301!\207" [ac-quick-help popup-scroll-up] 2 nil nil])
(put 'ac-quick-help-scroll-up 'ac-quick-help-command t)
(defalias 'ac-isearch-callback #[(list) "G\302=\211\207" [list ac-dwim-enable 1] 2])
(defalias 'ac-isearch #[nil "\301!\205 \302 \210\303 \210\304 \210\305\306\307#\207" [ac-menu popup-live-p ac-cancel-show-menu-timer ac-cancel-quick-help-timer ac-show-menu popup-isearch :callback ac-isearch-callback] 4 nil nil])
#@41 Start auto-completion at current point.
(defalias 'auto-complete #[(&optional sources) "\306! \205 A@\205 \307\310 \210\f\206 \204\" \n\203% \307\311 \210)\312\307!\205e \203< A@\203< \313 \210\204M G\314V\203M \203X \315 )?\205e \205e ?\205e \316 *\207" [ac-menu ac-inline inline-live menu-live sources ac-sources popup-live-p t ac-cleanup ac-start ac-update-greedy ac-inline-hide 1 ac-expand-common ac-fuzzy-complete ac-show-menu-immediately-on-auto-complete ac-show-menu ac-expand-on-auto-complete ac-candidates ac-whole-common-part ac-common-part ac-use-fuzzy] 2 (#$ . 33854) nil])
#@42 Start fuzzy completion at current point.
(defalias 'ac-fuzzy-complete #[nil "\306\307\310\"\2030 \311!\204 \312 \210\313\n\204 \314\315 \316\" \203$ \317 !\210\320\211\310\321\320!\210)\320\207" [ac-menu ac-match-function ac-cursor-color ac-fuzzy-cursor-color ac-show-menu ac-fuzzy-enable require fuzzy nil popup-live-p ac-start fuzzy-all-completions frame-parameter selected-frame cursor-color set-cursor-color t ac-update ac-triggered] 4 (#$ . 34474) nil])
#@24 Select next candidate.
(defalias 'ac-next #[nil "\304!\205 \305!\210\306\n\307=\205 \306\211\207" [ac-menu ac-show-menu this-command ac-dwim-enable popup-live-p popup-next t ac-next] 2 (#$ . 34948) nil])
#@28 Select previous candidate.
(defalias 'ac-previous #[nil "\304!\205 \305!\210\306\n\307=\205 \306\211\207" [ac-menu ac-show-menu this-command ac-dwim-enable popup-live-p popup-previous t ac-previous] 2 (#$ . 35164) nil])
#@59 Try expand, and if expanded twice, select next candidate.
(defalias 'ac-expand #[nil "\306 ?\205K \205 \307!\211\205J \n \232\203# \310 \210\205\" \307!\311 \f=\"\210\312H>\2046 \313\314!\210\315H\312V\203F \316 \203F \317 \210\320 )\207" [ac-menu string ac-prefix last-command this-command cl-struct-popup-tags ac-expand-common popup-selected-item ac-next ac-expand-string 0 error "popup-direction accessing a non-popup" 7 ac-menu-at-wrapper-line-p ac-reposition t ac-show-menu] 5 (#$ . 35396) nil])
#@39 Try to expand meaningful common part.
(defalias 'ac-expand-common #[nil "\203 \203 \306 \207\n\205& \nA@\205& \205& \307 \210\310 \f=\"\210\311\312\207" [ac-dwim ac-dwim-enable ac-inline ac-common-part last-command this-command ac-complete ac-inline-hide ac-expand-string nil t] 4 (#$ . 35916) nil])
#@15 Try complete.
(defalias 'ac-complete #[nil "\205 \306!\307 \302\"\310 \2037 \311 !\204 \312\f\2037 \2037 \204, \313 \310B@\f\223\210 \241\210\314 \210\n\203D \n \210\202K \203K \315 \210 +\207" [ac-menu candidate action fallback ac-point ac-last-completion popup-selected-item popup-item-property nil ac-expand-string t make-marker ac-cleanup ac-fallback-command ac-buffer] 3 (#$ . 36229) nil])
#@50 Start completion.
(fn &key REQUIRES FORCE-INIT)
(defalias 'ac-start #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@ \2038 @\310>\203! AA\211\202 \311>A@\203/ \312\211\202 \313\314 @\"\210\202 )\f\204C \315\316!\202\321 \317 \"\211 @ A@ \320 8 \312 \n\206f ! =? \" \203{ \321 `\"\211 #\235\203\202 \312\322 \210\202\317 $\204\216 \323\324 \325\"$%\206\233 &\326=\205\233 \326% 'p( ! )*\326+ ,\"\204\301 -\204\304 \327 \210\330 \210\331 \210\332 \210\333 .*\207" [#1# requires force-init #2=#:--cl-keys-- auto-complete-mode ac-ignoring-prefix-def :requires :force-init (:requires :force-init :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:requires :force-init)" message "auto-complete-mode is not enabled" ac-prefix 2 buffer-substring-no-properties ac-cleanup frame-parameter selected-frame cursor-color t ac-init ac-set-timer ac-set-show-menu-timer ac-set-quick-help-timer ac-put-prefix-overlay info prefix-def point sources prefix ac-point init ac-ignores ac-cursor-color ac-show-menu ac-auto-show-menu ac-current-sources ac-buffer ac-candidate-limit ac-limit ac-triggered ac-current-prefix-def ac-prefix-overlay] 5 (#$ . 36646) nil])
#@19 Stop completiong.
(defalias 'ac-stop #[nil "\301\302 \207" [ac-selected-candidate nil ac-cleanup] 1 (#$ . 37867) nil])
(defalias 'ac-trigger-key-command #[(&optional force) "\204\n \302 !\203 \303 \207\304\305!\207" [force last-command ac-trigger-command-p auto-complete ac-fallback-command ac-trigger-key-command] 2 nil "P"])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\304\"\210\306B\302\306!\204- \303\306\304\"\210\307B\302\307!\204< \303\307\310\"\210\304\207" [current-load-list ac-clear-variables-every-minute-timer default-boundp set-default nil ac-clear-variables-after-save ac-clear-variables-every-minute ac-minutes-counter 0] 3)
(defalias 'ac-clear-variable-after-save #[(variable &optional pred) "\302\303 B\"\207" [variable pred add-to-list ac-clear-variables-after-save] 4])
(defalias 'ac-clear-variables-after-save #[nil "\303\211\203\" \n@\211A\203 A \203 @\303L\210\nA\211\204 *\303\207" [ac-clear-variables-after-save pair #1=#:--cl-dolist-temp-- nil] 3])
(defalias 'ac-clear-variable-every-minutes #[(variable minutes) "\302\303 B\"\207" [variable minutes add-to-list ac-clear-variables-every-minute] 4])
(defalias 'ac-clear-variable-every-minute #[(variable) "\301\302\"\207" [variable ac-clear-variable-every-minutes 1] 3])
(defalias 'ac-clear-variable-every-10-minutes #[(variable) "\301\302\"\207" [variable ac-clear-variable-every-minutes 10] 3])
(defalias 'ac-clear-variables-every-minute #[nil "T \304\211\203# @\nA\246\305=\203 \n@\304L\210 A\211\204 *\304\207" [ac-minutes-counter ac-clear-variables-every-minute pair #1=#:--cl-dolist-temp-- nil 0] 3])
(defalias 'ac-cursor-on-diable-face-p #[(&optional point) "\302\206 `\303\" >\207" [point ac-disable-faces get-text-property face] 3])
#@51 Return non-nil if `COMMAND' is a trigger command.
(defalias 'ac-trigger-command-p #[(command) "9\205 >\206 \302\303\304!\"\206 \302\305\304!\"\207" [command ac-trigger-commands string-match "self-insert-command" symbol-name "electric"] 4 (#$ . 39662)])
(defalias 'ac-fallback-command #[(&optional except-command) "\305\306 \211\205\f \307 !\310\n!\205 \n =?\205 \n\311\n!+\207" [auto-complete-mode keys command except-command this-command nil this-command-keys-vector key-binding commandp call-interactively] 3])
#@63 Return non-nil if `COMMAND' is compatible with auto-complete.
(defalias 'ac-compatible-package-command-p #[(command) "9\205 \302 \303!\"\207" [command ac-compatible-packages-regexp string-match symbol-name] 4 (#$ . 40195)])
(defalias 'ac-handle-pre-command #[nil "\300\301\302\217\207" [var (byte-code "?\205 \305=\204 \306 !\204 \n\205 >\205 \307 ?\211\204) \310 !\203: 9\2034 \311N\2047 \312 \210\313 \207\314 \207" [ac-fuzzy-enable this-command ac-completing ac-trigger-commands-on-completing ac-triggered auto-complete ac-trigger-command-p ac-cursor-on-diable-face-p ac-compatible-package-command-p ac-quick-help-command ac-remove-quick-help ac-inline-hide ac-cleanup] 2) ((error (ac-error var)))] 3])
(defalias 'ac-handle-post-command #[nil "\300\301\302\217\207" [var (byte-code "\205 \204\f \n\205 ?\205 `\305\306\n?\205 \"\210\307 \207" [ac-triggered ac-auto-start ac-completing isearch-mode ac-last-point ac-start :requires ac-inline-update] 3) ((error (ac-error var)))] 3])
(defalias 'ac-setup #[nil "\203 \304!\210 \203 \305 \210\n\204 \306\307\211\310# \203+ \311\312\313\314\315$\210\316\312\315\"\210\312\207\317\312\314\320#\207" [ac-trigger-key ac-use-comphist ac-clear-variables-every-minute-timer ac-stop-flymake-on-completing ac-set-trigger-key ac-comphist-init run-with-timer 60 ac-clear-variables-every-minute ad-add-advice flymake-on-timer-event (ac-flymake-stop-advice nil t (advice lambda nil (unless ac-completing ad-do-it))) around nil ad-activate ad-disable-advice ac-flymake-stop-advice] 5])
#@105 Non-nil if Auto-Complete mode is enabled.
Use the command `auto-complete-mode' to change this variable.
(defvar auto-complete-mode nil (#$ . 41752))
(make-variable-buffer-local 'auto-complete-mode)
#@19 AutoComplete mode
(defalias 'auto-complete-mode #[(&optional arg) "\303 \304=\203 \n?\202( \203 \305 !\306V\202( \n\204\" \307\202( \310\311\302\"\210\312\211\203L \313 \210\314\315\316\312\307$\210\314\317\320\312\307$\210\314\321\322\312\307$\210\323\324!\210\202a \325\315\316\307#\210\325\317\320\307#\210\325\321\322\307#\210\326 \210\323\324\n\203k \327\202l \330\"\210\331 \203\214 \303 \203 \303 \232\203\214 \310\332\n\203\211 \333\202\212 \334\"\210)\335 \210\n\207" [#1=#:last-message arg auto-complete-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil ac-setup add-hook pre-command-hook ac-handle-pre-command post-command-hook ac-handle-post-command after-save-hook ac-clear-variables-after-save run-hooks auto-complete-mode-hook remove-hook ac-cleanup auto-complete-mode-on-hook auto-complete-mode-off-hook called-interactively-p "Auto-Complete mode %sabled" "en" "dis" force-mode-line-update] 6 (#$ . 41956) (list (or current-prefix-arg 'toggle))])
(add-minor-mode 'auto-complete-mode " AC" ac-mode-map)
#@43 What buffer `auto-complete-mode' prefers.
(defalias 'auto-complete-mode-maybe #[nil "\302p!?\205 >\205 \303\304!\207" [major-mode ac-modes minibufferp auto-complete-mode 1] 2 (#$ . 43056)])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\305\301!\207" [current-load-list auto-complete-mode-major-mode default-boundp set-default nil make-variable-buffer-local] 3)
#@296 Non-nil if Global-Auto-Complete mode is enabled.
See the command `global-auto-complete-mode' for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `global-auto-complete-mode'.
(custom-declare-variable 'global-auto-complete-mode 'nil '(#$ . 43435) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'auto-complete :type 'boolean)
#@296 Toggle Auto-Complete mode in every possible buffer.
With prefix ARG, turn Global-Auto-Complete mode on if and only if ARG is positive.
Auto-Complete mode is enabled in all buffers where `auto-complete-mode-maybe' would do it.
See `auto-complete-mode' for more information on Auto-Complete mode.
(defalias 'global-auto-complete-mode #[(&optional arg) "\306 \307=\203 \n?\202( \203 \310 !\311V\202( \n\204\" \312\202( \313\314\302\"\210\315\211\203? \316\317\320\"\210\316\321\322\"\210\316\323\324\"\210\202N \325\317\320\"\210\325\321\322\"\210\325\323\324\"\210\326 \315\211 \203x \f@r q\210\n\203h \327 \210\202p \203p \305\330!\210)\fA\211\204W *\331\332\n\203\203 \333\202\204 \334\"\210\335 \203\250 \336\302!\210\306 \203\233 \306 \232\203\250 \313\337\n\203\245 \340\202\246 \341\"\210)\342 \210\n\207" [#1=#:last-message arg global-auto-complete-mode buf #2=#:--cl-dolist-temp-- auto-complete-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil add-hook after-change-major-mode-hook global-auto-complete-mode-enable-in-buffers find-file-hook global-auto-complete-mode-check-buffers change-major-mode-hook global-auto-complete-mode-cmhh remove-hook buffer-list auto-complete-mode-maybe -1 run-hooks global-auto-complete-mode-hook global-auto-complete-mode-on-hook global-auto-complete-mode-off-hook called-interactively-p customize-mark-as-set "Global-Auto-Complete mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 43913) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\305!\205 \305J#\210\306B\307\306!\204 \310\306\303\"\210\303\207" [current-load-list add-minor-mode global-auto-complete-mode nil boundp global-auto-complete-mode-map global-auto-complete-mode-buffers default-boundp set-default] 5)
(defalias 'global-auto-complete-mode-enable-in-buffers #[nil "\306\211\2038 \n@\307 !\2031 r q\210 \203+ \f=\2040 \303\310!\210\311 \210\2020 \311 \210)\nA\211\204 *\306\207" [global-auto-complete-mode-buffers buf #1=#:--cl-dolist-temp-- auto-complete-mode auto-complete-mode-major-mode major-mode nil buffer-live-p -1 auto-complete-mode-maybe] 3])
(put 'global-auto-complete-mode-enable-in-buffers 'definition-name 'global-auto-complete-mode)
(defalias 'global-auto-complete-mode-check-buffers #[nil "\301 \210\302\303\304\305\"\207" [global-auto-complete-mode-buffers global-auto-complete-mode-enable-in-buffers nil remove-hook post-command-hook global-auto-complete-mode-check-buffers] 3])
(put 'global-auto-complete-mode-check-buffers 'definition-name 'global-auto-complete-mode)
(defalias 'global-auto-complete-mode-cmhh #[nil "\300\301p\"\210\302\303\304\"\207" [add-to-list global-auto-complete-mode-buffers add-hook post-command-hook global-auto-complete-mode-check-buffers] 3])
(put 'global-auto-complete-mode-cmhh 'definition-name 'global-auto-complete-mode)
#@217 Flyspell uses `sit-for' for delaying its process. Unfortunatelly,
it stops auto completion which is trigger with `run-with-idle-timer'.
This workaround avoid flyspell processes when auto completion is being started.
(defalias 'ac-flyspell-workaround #[nil "\300\301\302\303\304$\210\305\301\304\"\210\301\207" [ad-add-advice flyspell-post-command-hook (ac-flyspell-workaround nil t (advice lambda nil (unless ac-triggered ad-do-it))) around nil ad-activate] 5 (#$ . 46821) nil])(if macro-declaration-function (funcall macro-declaration-function (quote ac-define-source) (quote (declare (indent 1)))))
#@62 Source definition macro. It defines a complete command also.
(defalias 'ac-define-source '(macro . #[(name source) "\302\303\304\305\306\"! E\307\304\305\310\"!\311\312\313\314\304\305\306\"!CDD\257E\207" [name source progn defvar intern format "ac-source-%s" defun "ac-complete-%s" nil (interactive) auto-complete quote] 12 (#$ . 47428)]))
(byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list ac-word-index default-boundp set-default nil] 3)
(defalias 'ac-candidate-words-in-buffer #[(point prefix limit) "\306\307\211\310\311!\312Q \212b\210\250\203 \fW\203: \313 \307\314#\203: \315\306!\211\n\235\204 \nB\fT\202 G\\b\210\250\203M \fW\203i \316 \307\314#\203i \315\306!\211\n\235\204@ \nB\fT\202@ \n\237-\207" [prefix regexp candidates candidate i point 0 nil "\\_<" regexp-quote "\\(\\sw\\|\\s_\\)+\\_>" re-search-backward t match-string-no-properties re-search-forward limit] 7])
(defalias 'ac-incremental-update-word-index #[nil "\306\300!\204\n \307\300!\210\204 \310\211B@\203 \310\240\210A\311 \n \250\203) \206* \312# \f\310 \211 \f\203T \f@\211 \235\204K B\241\210\fA\211\f\2047 ,\310\207" [ac-word-index ac-point ac-prefix ac-limit words index local-variable-p make-local-variable nil ac-candidate-words-in-buffer 10 word #1=#:--cl-dolist-temp--] 5])
(defalias 'ac-update-word-index-1 #[nil "\301\300!\204\n \302\300!\210@?\205\" \303 \304W\205\" \305\306\307ed\"\310\"B\211\207" [ac-word-index local-variable-p make-local-variable buffer-size 1048576 t split-string buffer-substring-no-properties "\\(?:^\\|\\_>\\).*?\\(?:\\_<\\|$\\)"] 5])
(defalias 'ac-update-word-index #[nil "\303 \304\211\203% @\n\204 p=\204 rq\210\305 \210) A\211\204 *\304\207" [buffer #1=#:--cl-dolist-temp-- ac-fuzzy-enable buffer-list nil ac-update-word-index-1] 3])
(defalias 'ac-word-candidates #[(&optional buffer-pred) "\306 \307\211 \204 \310 \210:\203L @\f\250\203\" \nG\fW\203E \203, !\202- \311\203E \312\n\313\314 \"\205B \315\314 \"A\"\"A\211\202 \n+\207" [#1=#:--cl-var-- buffer candidates ac-fuzzy-enable ac-limit buffer-pred buffer-list nil ac-incremental-update-word-index t append local-variable-p ac-word-index buffer-local-value ac-match-function ac-prefix] 8])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list ac-source-words-in-buffer default-boundp set-default ((candidates . ac-word-candidates))] 3)
(defalias 'ac-complete-words-in-buffer #[nil "\300\301!\207" [auto-complete (ac-source-words-in-buffer)] 2 nil nil])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list ac-source-words-in-all-buffer default-boundp set-default ((init . ac-update-word-index) (candidates . ac-word-candidates))] 3)
(defalias 'ac-complete-words-in-all-buffer #[nil "\300\301!\207" [auto-complete (ac-source-words-in-all-buffer)] 2 nil nil])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list ac-source-words-in-same-mode-buffers default-boundp set-default ((init . ac-update-word-index) (candidates ac-word-candidates (lambda (buffer) (derived-mode-p (buffer-local-value 'major-mode buffer)))))] 3)
(defalias 'ac-complete-words-in-same-mode-buffers #[nil "\300\301!\207" [auto-complete (ac-source-words-in-same-mode-buffers)] 2 nil nil])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\305\301!\207" [current-load-list ac-symbols-cache default-boundp set-default nil ac-clear-variable-every-10-minutes] 3)
(defalias 'ac-symbol-file #[(symbol type) "\304\305!\203 \305 \"\207\306\307 \"!\211\310\232\203= \311\312\313\217\211\203< r @q\210 A\203/ Ab\210\314\315\311\316#\203; \317\320!))\n\204m \321=\204N \322N\250\203m \323\324!\203i \321=\203b \325K\326\"\202n \325\327\"\202n \330\202n \n)\207" [symbol type file-name location fboundp find-lisp-object-file-name describe-simplify-lib-file-name symbol-file "loaddefs.el" nil (byte-code "\303=\203\f \304 \305\306#\207\307 \n\"\207" [type symbol file-name defun find-function-search-for-symbol nil "loaddefs.el" find-variable-noselect] 4) ((error)) re-search-backward "^;;; Generated autoloads from \\(.*\\)" t match-string 1 defun variable-documentation get-buffer " *DOC*" help-C-file-name subr var C-source] 5])
(defalias 'ac-symbol-documentation #[(symbol) ";\203 \301!\302\303\304\217\207" [symbol intern-soft nil (byte-code "\306\307!rq\210\310\216p\311\n!\210\312\313!\210\314\n!\203& \315\316\n!\210)\317 \202\265 \320\n!\203c \321\n\322\" \312\323!\210\f\203M \312\324!\210\312\f\325=\203H \326\202K \327\f!!\210\312\330!\210\312\331\n\332\315#\206[ \333!\210\317 )\202\265 \334\n!\203\240 \321\n\335\" \312\336!\210\f\203\212 \312\324!\210\312\f\325=\203\205 \326\202\210 \327\f!!\210\312\330!\210\312\331\n\337\315#\206\230 \333!\210\317 )\202\265 \331\n\340\315#\211 \205\264 \312\341!\210\312!\210\317 ),\207" [#1=#:temp-buffer standard-output symbol help-xref-following file-name doc generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) prin1 princ " is " fboundp t describe-function-1 buffer-string boundp ac-symbol-file defvar "a variable" " defined in `" C-source "C source code" file-name-nondirectory "'.\n\n" documentation-property variable-documentation "Not documented." facep defface "a face" face-documentation group-documentation "a group.\n\n"] 6) ((error))] 3])
(defalias 'ac-symbol-candidates #[nil "\206 \302\303\304\302\"\210 \237)\211\207" [ac-symbols-cache #1=#:--cl-var-- nil mapatoms #[(x) "\302!\204 \303!\204 \304!\205 \305! B\211\207" [x #1# fboundp boundp symbol-plist symbol-name] 2]] 3])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list ac-source-symbols default-boundp set-default ((candidates . ac-symbol-candidates) (document . ac-symbol-documentation) (symbol . "s") (cache))] 3)
(defalias 'ac-complete-symbols #[nil "\300\301!\207" [auto-complete (ac-source-symbols)] 2 nil nil])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\305\301!\207" [current-load-list ac-functions-cache default-boundp set-default nil ac-clear-variable-every-10-minutes] 3)
(defalias 'ac-function-candidates #[nil "\206 \302\303\304\302\"\210 \237)\211\207" [ac-functions-cache #1=#:--cl-var-- nil mapatoms #[(x) "\302!\205 \303! B\211\207" [x #1# fboundp symbol-name] 2]] 3])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list ac-source-functions default-boundp set-default ((candidates . ac-function-candidates) (document . ac-symbol-documentation) (symbol . "f") (prefix . "(\\(\\(?:\\sw\\|\\s_\\)+\\)") (cache))] 3)
(defalias 'ac-complete-functions #[nil "\300\301!\207" [auto-complete (ac-source-functions)] 2 nil nil])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\305\301!\207" [current-load-list ac-variables-cache default-boundp set-default nil ac-clear-variable-every-10-minutes] 3)
(defalias 'ac-variable-candidates #[nil "\206 \302\303\304\302\"\210 \237)\211\207" [ac-variables-cache #1=#:--cl-var-- nil mapatoms #[(x) "\302!\205 \303! B\211\207" [x #1# boundp symbol-name] 2]] 3])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list ac-source-variables default-boundp set-default ((candidates . ac-variable-candidates) (document . ac-symbol-documentation) (symbol . "v") (cache))] 3)
(defalias 'ac-complete-variables #[nil "\300\301!\207" [auto-complete (ac-source-variables)] 2 nil nil])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\305\301!\207" [current-load-list ac-emacs-lisp-features default-boundp set-default nil ac-clear-variable-every-10-minutes] 3)
(defalias 'ac-emacs-lisp-feature-candidates #[nil "\206x \306\307!\205x \310\307 \311\"\312P\313\314\315\n\" \316\211 \f:\203p \f@\317!\203i \320\321! \316\211 :\203_ @\322 \"\203V \323\211\224OBA\211\202: \237+!\244\fA\211\202 \237+\"\211)\207" [ac-emacs-lisp-features suffix features load-path #1=#:--cl-var-- dir fboundp find-library-suffixes regexp-opt t "\\'" append mapcar prin1-to-string nil file-directory-p reverse directory-files string-match 0 #2=#:--cl-var-- #3=#:--cl-var-- file #4=#:--cl-var--] 8])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list ac-source-features default-boundp set-default ((depends find-func) (candidates . ac-emacs-lisp-feature-candidates) (prefix . "require +'\\(\\(?:\\sw\\|\\s_\\)*\\)") (requires . 0))] 3)
(defalias 'ac-complete-features #[nil "\300\301!\207" [auto-complete (ac-source-features)] 2 nil nil])
(byte-code "\301\302\303\"\210\304B\305\304!\204 \306\304\307\"\210\301\207" [current-load-list defvaralias ac-source-emacs-lisp-features ac-source-features ac-source-abbrev default-boundp set-default ((candidates mapcar 'popup-x-to-string (append (vconcat local-abbrev-table global-abbrev-table) nil)) (action . expand-abbrev) (symbol . "a") (cache))] 3)
(defalias 'ac-complete-abbrev #[nil "\300\301!\207" [auto-complete (ac-source-abbrev)] 2 nil nil])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list ac-source-files-in-current-dir default-boundp set-default ((candidates directory-files default-directory) (cache))] 3)
(defalias 'ac-complete-files-in-current-dir #[nil "\300\301!\207" [auto-complete (ac-source-files-in-current-dir)] 2 nil nil])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list ac-filename-cache default-boundp set-default nil] 3)
(defalias 'ac-filename-candidate #[nil "\301!?\205 \302\303\304\217\207" [ac-prefix file-regular-p nil (byte-code "\306!\307 \n\"\206 \310 \311\312# B\nB )\211 \311\211 \311 \f:\203M \f@ P\313!\203? \314P\202A B\fA\211\202% \237.\207" [ac-prefix dir ac-filename-cache files #1=#:--cl-var-- file file-name-directory assoc-default directory-files nil "^[^.]" file-directory-p "/" path #2=#:--cl-var--] 5) ((error))] 3])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list ac-source-filename default-boundp set-default ((init setq ac-filename-cache nil) (candidates . ac-filename-candidate) (prefix . valid-file) (requires . 0) (action . ac-start) (limit))] 3)
(defalias 'ac-complete-filename #[nil "\300\301!\207" [auto-complete (ac-source-filename)] 2 nil nil])
#@17 User dictionary
(custom-declare-variable 'ac-user-dictionary 'nil '(#$ . 57755) :type '(repeat string) :group 'auto-complete)
#@24 User dictionary files.
(custom-declare-variable 'ac-user-dictionary-files ''("~/.dict") '(#$ . 57887) :type '(repeat string) :group 'auto-complete)
#@25 Dictionary directories.
(custom-declare-variable 'ac-dictionary-directories 'nil '(#$ . 58041) :type '(repeat string) :group 'auto-complete)
(byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204! \303\305\306\307\310\"\"\210\304\207" [current-load-list ac-dictionary default-boundp set-default nil ac-dictionary-cache make-hash-table :test equal] 5)
(defalias 'ac-clear-dictionary-cache #[nil "\301!\207" [ac-dictionary-cache clrhash] 2 nil nil])
(defalias 'ac-read-file-dictionary #[(filename) "\304 \305#\211\203 \n\305=\204 \n\202# \306\211\307\310\217\210\311 #\210 ))\207" [filename ac-dictionary-cache cache result gethash none nil (byte-code "\303\304!rq\210\305\216\306 !\210\307\310 \311\"+\303\207" [#1=#:temp-buffer filename result generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents split-string buffer-string "\n"] 3) ((error)) puthash] 5])
(defalias 'ac-buffer-dictionary #[nil "\301\302\303\304\303\305\306!\307\310\311\217D\"\"\"\207" [major-mode apply append mapcar ac-read-file-dictionary #[(name) "\306\211\307 \306 :\2031 @\211\310\nQ\311 !\203& \306\211\202' \307\2031 A\211\202 -\207" [ac-dictionary-directories #1=#:--cl-var-- dir file #2=#:--cl-var-- #3=#:--cl-var-- nil t "/" file-exists-p name] 4] symbol-name nil (byte-code "\300\301 !\207" [file-name-extension buffer-file-name] 2) ((error))] 10])
(defalias 'ac-dictionary-candidates #[nil "\302\303\304 \305\306 \"BB\"\207" [ac-user-dictionary ac-user-dictionary-files apply append ac-buffer-dictionary mapcar ac-read-file-dictionary] 7])
(byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list ac-source-dictionary default-boundp set-default ((candidates . ac-dictionary-candidates) (symbol . "d"))] 3)
(defalias 'ac-complete-dictionary #[nil "\300\301!\207" [auto-complete (ac-source-dictionary)] 2 nil nil])
(provide 'auto-complete)