auto-complete.elc

;ELC
;;; Compiled by thairp@green on Fri Jul  6 19:03:35 2012
;;; from file /home/thairp/Downloads/auto-complete-1.3.1/auto-complete.el
;;; in Emacs version 23.3.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(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 (#$ . 545)])
(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 '(#$ . 899) :type 'float :group 'auto-complete)
#@60 Non-nil means completion menu will be automatically shown.
(custom-declare-variable 'ac-auto-show-menu '0.8 '(#$ . 1033) :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 '(#$ . 1266) :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 '(#$ . 1460) :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) '(#$ . 1643) :type '(repeat symbol) :group 'auto-complete)
#@57 Non-nil means disble flymake temporarily on completing.
(custom-declare-variable 'ac-stop-flymake-on-completing 't '(#$ . 1882) :type 'boolean :group 'auto-complete)
#@35 Non-nil means use fuzzy matching.
(custom-declare-variable 'ac-use-fuzzy 't '(#$ . 2054) :type 'boolean :group 'auto-complete)
#@29 Cursor color in fuzzy mode.
(custom-declare-variable 'ac-fuzzy-cursor-color '"red" '(#$ . 2187) :type 'string :group 'auto-complete)
#@51 Non-nil means use intelligent completion history.
(custom-declare-variable 'ac-use-comphist 't '(#$ . 2326) :type 'boolean :group 'auto-complete)
#@47 Percentage of ignoring low scored candidates.
(custom-declare-variable 'ac-comphist-threshold '0.7 '(#$ . 2478) :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")) '(#$ . 2632) :type 'string :group 'auto-complete)
#@31 Non-nil means use quick help.
(custom-declare-variable 'ac-use-quick-help 't '(#$ . 2880) :type 'boolean :group 'auto-complete)
#@27 Delay to show quick help.
(custom-declare-variable 'ac-quick-help-delay '1.5 '(#$ . 3014) :type 'float :group 'auto-complete)
#@31 Max height of candidate menu.
(custom-declare-variable 'ac-menu-height '10 '(#$ . 3146) :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 '(#$ . 3334) :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 '(#$ . 3468) :type 'boolean :group 'auto-complete)
#@57 Limit number of candidates. Non-integer means no limit.
(custom-declare-variable 'ac-candidate-limit 'nil '(#$ . 3640) :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) '(#$ . 3855) :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-" '(#$ . 4317) :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) '(#$ . 4499) :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) '(#$ . 4709) :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 '(#$ . 4989) :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 '(#$ . 5431) :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 '(#$ . 5838) :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 '(#$ . 5983) :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 '(#$ . 6313) :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 '(#$ . 6468) :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 '(#$ . 6651) :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 (#$ . 7302))
#@47 Dummy variable to suppress compiler warnings.
(defvar auto-complete-mode nil (#$ . 7388))
#@19 Old cursor color.
(defvar ac-cursor-color nil (#$ . 7484))
#@29 Inline completion instance.
(defvar ac-inline nil (#$ . 7549))
#@16 Menu instance.
(defvar ac-menu nil (#$ . 7618))
#@34 Flag to show menu on timer tick.
(defvar ac-show-menu nil (#$ . 7672))
#@61 Cons of prefix marker and selected item of last completion.
(defvar ac-last-completion nil (#$ . 7749))
#@21 Quick help instance
(defvar ac-quick-help nil (#$ . 7859))
#@66 Non-nil means `auto-complete-mode' is now working on completion.
(defvar ac-completing nil (#$ . 7924))
#@40 Buffer where auto-complete is started.
(defvar ac-buffer nil (#$ . 8034))
#@24 Start point of prefix.
(defvar ac-point nil (#$ . 8114))
#@33 Last point of updating pattern.
(defvar ac-last-point nil (#$ . 8177))
#@16 Prefix string.
(defvar ac-prefix nil (#$ . 8254))
(defvaralias 'ac-target 'ac-prefix)
#@26 Last selected candidate.
(defvar ac-selected-candidate nil (#$ . 8346))
#@92 Common part string of meaningful candidates.
If there is no common part, this will be nil.
(defvar ac-common-part nil (#$ . 8424))
#@87 Common part string of whole candidates.
If there is no common part, this will be nil.
(defvar ac-whole-common-part nil (#$ . 8561))
#@28 Overlay for prefix string.
(defvar ac-prefix-overlay nil (#$ . 8699))
#@24 Completion idle timer.
(defvar ac-timer nil (#$ . 8775))
#@23 Show menu idle timer.
(defvar ac-show-menu-timer nil (#$ . 8838))
#@24 Quick help idle timer.
(defvar ac-quick-help-timer nil (#$ . 8910))
#@17 Flag to update.
(defvar ac-triggered nil (#$ . 8984))
#@46 Limit number of candidates for each sources.
(defvar ac-limit nil (#$ . 9044))
#@21 Current candidates.
(defvar ac-candidates nil (#$ . 9129))
#@42 Candidates cache for individual sources.
(defvar ac-candidates-cache nil (#$ . 9194))
#@42 Non-nil means fuzzy matching is enabled.
(defvar ac-fuzzy-enable nil (#$ . 9286))
#@48 Non-nil means DWIM completion will be allowed.
(defvar ac-dwim-enable nil (#$ . 9374))
#@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) (#$ . 9467))
#@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) (#$ . 9619))
(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) (#$ . 10666))
(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 (#$ . 11128))
#@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)) (#$ . 11215))
#@25 Sources for completion.
(defvar ac-sources '(ac-source-words-in-same-mode-buffers) (#$ . 11451))
(make-variable-buffer-local 'ac-sources)
#@34 Compiled source of `ac-sources'.
(defvar ac-compiled-sources nil (#$ . 11595))
#@68 Current working sources. This is sublist of `ac-compiled-sources'.
(defvar ac-current-sources nil (#$ . 11680))
#@26 Do not use this anymore.
(defvar ac-omni-completion-sources nil (#$ . 11798))
(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 (#$ . 12083))
(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#\211HTI\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\211W\203t\315Z!Z\316\317[_!T\245\f
H_\\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\nB\202,\207" [cur total n result collection threshold nil 0 mapcar #[(a) "\203	\203\n	_Y\203\305\202T\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 (#$ . 15444)])
#@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 (#$ . 15685)])
(defalias 'ac-prefix-default 'ac-prefix-symbol)
#@14 File prefix.
(defalias 'ac-prefix-file #[nil "\301\302\303\304#\211\205\fT)\207" [point re-search-backward "[\"<>' 	
\n]" nil t] 5 (#$ . 15911)])
#@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 (#$ . 16066)])
#@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 (#$ . 16463)])
#@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 (#$ . 16667)])
#@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 (#$ . 16906)])
(defalias 'ac-match-substring #[(prefix candidates) "\306!\n\307\211:\203$@\310	\f\"\203\f
BA\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\203J\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\203J\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\"
\316
A\"\211\203P\311\315\"\210\202Z
\204Z\311\315\317\"\210*\320\n\236\211A\321=\203l\322\241\210,\nB	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 (#$ . 18005)])
(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 "\205A@\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\307l\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 "\205A@\205\301 \210\302A@!\210\303\211\207" [ac-inline ac-inline-hide delete-overlay nil] 2])
(defalias 'ac-inline-hide #[nil "\205CA@\205CA@@\304\211\205B\305\n!\203+\212\nb\210\306\307!\210\n\310\211\223\210)\311ee#\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\211V\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 (#$ . 23573)])
(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\211A\204o\212\315\n!\203U\n \202X\316\n!)\317\320\"	\203oBB\307\321\"\206x\"\250\203\236\322V\203\236GV\203\236S\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\205vS\233\211A\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 (#$ . 24724)])
#@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\313I\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 (#$ . 25582)])
#@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 (#$ . 26252)])
#@26 Cleanup auto completion.
(defalias 'ac-cleanup #[nil "\203\306!\210	\2038\n\2038\204 \f
\235\203 \f\2038\307\n\2034Z\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 (#$ . 26788)])
#@19 Abort completion.
(defalias 'ac-abort #[nil "\300 \207" [ac-cleanup] 1 (#$ . 27760)])
(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:\211A@)\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 (#$ . 27913)])
#@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 (#$ . 28522)])
(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\204MG\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 (#$ . 33776) 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 (#$ . 34396) 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 (#$ . 34870) 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 (#$ . 35086) 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 (#$ . 35318) 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 (#$ . 35838) 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 (#$ . 36151) 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@\3208\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 (#$ . 36568) nil])
#@19 Stop completiong.
(defalias 'ac-stop #[nil "\301\302 \207" [ac-selected-candidate nil ac-cleanup] 1 (#$ . 37789) 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\210A\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 (#$ . 39584)])
(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 (#$ . 40117)])
(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 (#$ . 41674))
(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\332!\203\215\303 \203\200\303 \232\203\215\310\333\n\203\212\334\202\213\335\"\210)\336 \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 any "Auto-Complete mode %sabled" "en" "dis" force-mode-line-update] 6 (#$ . 41878) (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 (#$ . 42989)])
(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 '(#$ . 43368) :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@rq\210\n\203h\327 \210\202p
\203p\305\330!\210)\fA\211\204W*\331\332\n\203\203\333\202\204\334\"\210\335\336!\203\251\337\302!\210\306 \203\234\306 \232\203\251\313\340\n\203\246\341\202\247\342\"\210)\343 \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 any customize-mark-as-set "Global-Auto-Complete mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 43846) (list (or current-prefix-arg 'toggle))])
(byte-code "\302\303\304\305\300!\205\n#\210\306	B\307\306!\204\310\306\304\"\210\304\207" [global-auto-complete-mode-map current-load-list add-minor-mode global-auto-complete-mode nil boundp global-auto-complete-mode-buffers default-boundp set-default] 5)
(defalias 'global-auto-complete-mode-enable-in-buffers #[nil "\306\211\2038\n@\307	!\2031r	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 (#$ . 46759) 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 (#$ . 47366)]))
(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\212
b\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\204p=\204rq\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\210A\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 '(#$ . 57693) :type '(repeat string) :group 'auto-complete)
#@24 User dictionary files.
(custom-declare-variable 'ac-user-dictionary-files ''("~/.dict") '(#$ . 57825) :type '(repeat string) :group 'auto-complete)
#@25 Dictionary directories.
(custom-declare-variable 'ac-dictionary-directories 'nil '(#$ . 57979) :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)