;ELC ;;; Compiled by [email protected] on Fri Jun 18 21:38:07 2010 ;;; from file /home/boggles/elisp/auto-complete-1.3/auto-complete.el ;;; in Emacs version 22.2.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 (#$ . 618)]) (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 '(#$ . 972) :type 'float :group 'auto-complete) #@60 Non-nil means completion menu will be automatically shown. (custom-declare-variable 'ac-auto-show-menu '0.8 '(#$ . 1106) :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 '(#$ . 1339) :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 '(#$ . 1533) :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) '(#$ . 1716) :type '(repeat symbol) :group 'auto-complete) #@57 Non-nil means disble flymake temporarily on completing. (custom-declare-variable 'ac-stop-flymake-on-completing 't '(#$ . 1955) :type 'boolean :group 'auto-complete) #@35 Non-nil means use fuzzy matching. (custom-declare-variable 'ac-use-fuzzy 't '(#$ . 2127) :type 'boolean :group 'auto-complete) #@29 Cursor color in fuzzy mode. (custom-declare-variable 'ac-fuzzy-cursor-color '"red" '(#$ . 2260) :type 'string :group 'auto-complete) #@51 Non-nil means use intelligent completion history. (custom-declare-variable 'ac-use-comphist 't '(#$ . 2399) :type 'boolean :group 'auto-complete) #@47 Percentage of ignoring low scored candidates. (custom-declare-variable 'ac-comphist-threshold '0.7 '(#$ . 2551) :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")) '(#$ . 2705) :type 'string :group 'auto-complete) #@31 Non-nil means use quick help. (custom-declare-variable 'ac-use-quick-help 't '(#$ . 2953) :type 'boolean :group 'auto-complete) #@27 Delay to show quick help. (custom-declare-variable 'ac-quick-help-delay '1.5 '(#$ . 3087) :type 'float :group 'auto-complete) #@31 Max height of candidate menu. (custom-declare-variable 'ac-menu-height '10 '(#$ . 3219) :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 '(#$ . 3407) :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 '(#$ . 3541) :type 'boolean :group 'auto-complete) #@57 Limit number of candidates. Non-integer means no limit. (custom-declare-variable 'ac-candidate-limit 'nil '(#$ . 3713) :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) '(#$ . 3928) :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-" '(#$ . 4390) :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) '(#$ . 4572) :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) '(#$ . 4782) :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 '(#$ . 5062) :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 '(#$ . 5504) :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 '(#$ . 5911) :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 '(#$ . 6056) :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 '(#$ . 6386) :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 '(#$ . 6541) :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 '(#$ . 6724) :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 (#$ . 7375)) #@47 Dummy variable to suppress compiler warnings. (defvar auto-complete-mode nil (#$ . 7461)) #@19 Old cursor color. (defvar ac-cursor-color nil (#$ . 7557)) #@29 Inline completion instance. (defvar ac-inline nil (#$ . 7622)) #@16 Menu instance. (defvar ac-menu nil (#$ . 7691)) #@34 Flag to show menu on timer tick. (defvar ac-show-menu nil (#$ . 7745)) #@61 Cons of prefix marker and selected item of last completion. (defvar ac-last-completion nil (#$ . 7822)) #@21 Quick help instance (defvar ac-quick-help nil (#$ . 7932)) #@66 Non-nil means `auto-complete-mode' is now working on completion. (defvar ac-completing nil (#$ . 7997)) #@40 Buffer where auto-complete is started. (defvar ac-buffer nil (#$ . 8107)) #@24 Start point of prefix. (defvar ac-point nil (#$ . 8187)) #@33 Last point of updating pattern. (defvar ac-last-point nil (#$ . 8250)) #@16 Prefix string. (defvar ac-prefix nil (#$ . 8327)) (defvaralias 'ac-target 'ac-prefix) #@26 Last selected candidate. (defvar ac-selected-candidate nil (#$ . 8419)) #@92 Common part string of meaningful candidates. If there is no common part, this will be nil. (defvar ac-common-part nil (#$ . 8497)) #@87 Common part string of whole candidates. If there is no common part, this will be nil. (defvar ac-whole-common-part nil (#$ . 8634)) #@28 Overlay for prefix string. (defvar ac-prefix-overlay nil (#$ . 8772)) #@24 Completion idle timer. (defvar ac-timer nil (#$ . 8848)) #@23 Show menu idle timer. (defvar ac-show-menu-timer nil (#$ . 8911)) #@24 Quick help idle timer. (defvar ac-quick-help-timer nil (#$ . 8983)) #@17 Flag to update. (defvar ac-triggered nil (#$ . 9057)) #@46 Limit number of candidates for each sources. (defvar ac-limit nil (#$ . 9117)) #@21 Current candidates. (defvar ac-candidates nil (#$ . 9202)) #@42 Candidates cache for individual sources. (defvar ac-candidates-cache nil (#$ . 9267)) #@42 Non-nil means fuzzy matching is enabled. (defvar ac-fuzzy-enable nil (#$ . 9359)) #@48 Non-nil means DWIM completion will be allowed. (defvar ac-dwim-enable nil (#$ . 9447)) #@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) (#$ . 9540)) #@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) (#$ . 9692)) (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) (#$ . 10739)) (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 (#$ . 11201)) #@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)) (#$ . 11288)) #@25 Sources for completion. (defvar ac-sources '(ac-source-words-in-same-mode-buffers) (#$ . 11524)) (make-variable-buffer-local 'ac-sources) #@34 Compiled source of `ac-sources'. (defvar ac-compiled-sources nil (#$ . 11668)) #@68 Current working sources. This is sublist of `ac-compiled-sources'. (defvar ac-current-sources nil (#$ . 11753)) #@26 Do not use this anymore. (defvar ac-omni-completion-sources nil (#$ . 11871)) (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 (#$ . 12156)) (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\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 \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!\304\216rq\210\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!\305\216rq\210\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 (#$ . 15517)]) #@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 (#$ . 15758)]) (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 (#$ . 15984)]) #@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 (#$ . 16139)]) #@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 (#$ . 16536)]) #@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 (#$ . 16740)]) #@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 (#$ . 16979)]) (defalias 'ac-match-substring #[(prefix candidates) "\306!\n\307\211 :\203$ @\310 \f\"\203 \f B 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\" \316 A\"\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 (#$ . 18078)]) (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 (#$ . 23646)]) (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 (#$ . 24797)]) #@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 (#$ . 25655)]) #@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 (#$ . 26325)]) #@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 (#$ . 26861)]) #@19 Abort completion. (defalias 'ac-abort #[nil "\300 \207" [ac-cleanup] 1 (#$ . 27833)]) (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 (#$ . 27986)]) #@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 (#$ . 28595)]) (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 (#$ . 33849) 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 (#$ . 34469) 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 (#$ . 34943) 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 (#$ . 35159) 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 (#$ . 35391) 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 (#$ . 35911) 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 (#$ . 36224) 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 (#$ . 36641) nil]) #@19 Stop completiong. (defalias 'ac-stop #[nil "\301\302 \207" [ac-selected-candidate nil ac-cleanup] 1 (#$ . 37862) 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 (#$ . 39657)]) (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 (#$ . 40190)]) (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 (#$ . 41747)) (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 (#$ . 41951) (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 (#$ . 43051)]) (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 '(#$ . 43430) :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 (#$ . 43908) (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 (#$ . 46816) 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 (#$ . 47423)])) (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\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!\310\216rq\210p\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 '(#$ . 57750) :type '(repeat string) :group 'auto-complete) #@24 User dictionary files. (custom-declare-variable 'ac-user-dictionary-files ''("~/.dict") '(#$ . 57882) :type '(repeat string) :group 'auto-complete) #@25 Dictionary directories. (custom-declare-variable 'ac-dictionary-directories 'nil '(#$ . 58036) :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!\305\216rq\210\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)
