;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. #@92 Version of auto-complete in string format. Use `version-to-list' to get version component. (defconst ac-version "1.5.1" (#$ . 87)) #@39 Major version number of auto-complete (defconst ac-version-major (byte-code "\301!@\207" [ac-version version-to-list] 2) (#$ . 224)) #@39 Minor version number of auto-complete (defconst ac-version-minor (byte-code "\301!A@\207" [ac-version version-to-list] 2) (#$ . 364)) (byte-code "\300\301!\210\300\302!\207" [require cl-lib popup] 2) #@51 Report an error and disable `auto-complete-mode'. (defalias 'ac-error #[(&optional var) "\3011\302\303\"\210\304\305!\2100\207\210\306\207" [var (error) message "auto-complete error: %s" auto-complete-mode -1 nil] 3 (#$ . 571)]) (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314\315\304\301&\210\310\316\317\320\314\321\304\301&\210\310\322\323\324\314\325\304\301&\210\310\326\323\327\314\325\304\301&\210\310\330\331\332\314\333\304\301&\210\310\334\323\335\314\325\304\301&\210\310\336\337\340\314\315\304\301&\210\310\341\342\343\314\325\304\301&\210\310\344\345\346\314\347\304\301&\210\310\350\323\351\314\325\304\301&\210\310\352\353\354\314\315\304\301&\210\310\355\356\357\314\347\304\301&\210\310\360\302\361\314\362\304\301&\210\310\363\364\365\314\366\304\301&\210\367\370\363\"\210\310\371\372\373\314\374\304\301&\210\310\375\323\376\314\325\304\301&\210\310\377\201@\201A\314\315\304\301&\210\310\201B\201C\201D\314\201E\304\301&\210\367\201F\201B\"\210\310\201G\201H\201I\314\201E\304\301&\210\310\201J\323\201K\314\325\304\301&\210\367\201L\201J\"\210\310\201M\302\201N\314\201E\304\301&\210\367\201O\201M\"\210\310\201P\201Q\201R\314\201S\304\301&\210\310\201T\201U\201V\314\347\304\301&\210\310\201W\201X\201Y\314\201Z\304\301&\210\310\201[\201\\\201]\314\201^\304\301&\210\310\201_\201`\201a\314\201b\304\301&\210\310\201c\302\201d\314\201e\304\301\201f\201g& \210\310\201h\201i\201j\314\201k\304\301&\210\310\201l\302\201m\314\201n\304\301&\210\367\201o\201l\"\210\310\201p\323\201q\314\325\304\301&\210\310\201r\201s\201t\314\201u\304\301&\210\310\201v\323\201w\314\325\304\301&\210\310\201x\302\201y\314\325\304\301&\210\310\201z\302\201{\314\325\304\301&\210\310\201|\302\201}\314\325\304\301&\210\310\201~\201\201\200\314\201E\304\301&\210\310\201\201\302\201\202\314\201\203\304\301&\210\201\204\201\205\201\206\201\207\304\301%\210\201\204\201\210\201\211\201\212\304\301%\210\201\204\201\213\201\214\201\215\304\301%\210\201\204\201\216\201\217\201\220\304\301%\207" [custom-declare-group auto-complete nil "Auto completion." :group completion :prefix "ac-" custom-declare-variable ac-delay 0.1 "Delay to completions will be available." :type float ac-auto-show-menu 0.8 "Non-nil means completion menu will be automatically shown." (choice (const :tag "Yes" t) (const :tag "Never" nil) (float :tag "Timer")) ac-show-menu-immediately-on-auto-complete t "Non-nil means menu will be showed immediately on `auto-complete'." boolean ac-expand-on-auto-complete "Non-nil means expand whole common part on first time `auto-complete'." ac-disable-faces '(font-lock-comment-face font-lock-string-face font-lock-doc-face) "Non-nil means disable automatic completion on specified faces." (repeat symbol) ac-stop-flymake-on-completing "Non-nil means disble flymake temporarily on completing." ac-flycheck-poll-completion-end-interval 0.5 "Polling interval to restart automatically flycheck's checking after completion is end." ac-use-fuzzy (and (locate-library "fuzzy") t) "Non-nil means use fuzzy matching." ac-fuzzy-cursor-color "red" "Cursor color in fuzzy mode." string ac-use-comphist "Non-nil means use intelligent completion history." ac-comphist-threshold 0.7 "Percentage of ignoring low scored candidates." ac-comphist-file (expand-file-name (concat (if (boundp 'user-emacs-directory) user-emacs-directory "~/.emacs.d/") "/ac-comphist.dat")) "Completion history file name." ac-user-dictionary "User defined dictionary" (repeat string) ac-dictionary-files '("~/.dict") "Dictionary files." (repeat string) defvaralias ac-user-dictionary-files ac-dictionary-directories (ignore-errors (when load-file-name (let ((installed-dir (file-name-directory load-file-name))) (cl-loop for name in '("ac-dict" "dict") for dir = (concat installed-dir name) if (file-directory-p dir) collect dir)))) "Dictionary directories." (repeat string) ac-use-quick-help "Non-nil means use quick help." ac-quick-help-delay 1.5 "Delay to show quick help." ac-menu-height 10 "Max height of candidate menu." integer ac-candidate-menu-height ac-quick-help-height 20 "Max height of quick help." ac-quick-help-prefer-pos-tip "Prefer native tooltip with pos-tip than overlay popup for displaying quick help." ac-quick-help-prefer-x ac-candidate-limit "Limit number of candidates. Non-integer means no limit." ac-candidate-max ac-modes '(emacs-lisp-mode lisp-mode lisp-interaction-mode slime-repl-mode nim-mode c-mode cc-mode c++-mode go-mode java-mode malabar-mode clojure-mode clojurescript-mode scala-mode scheme-mode ocaml-mode tuareg-mode coq-mode haskell-mode agda-mode agda2-mode perl-mode cperl-mode python-mode ruby-mode lua-mode tcl-mode ecmascript-mode javascript-mode js-mode js2-mode php-mode css-mode scss-mode less-css-mode makefile-mode sh-mode fortran-mode f90-mode ada-mode xml-mode sgml-mode web-mode ts-mode sclang-mode verilog-mode qml-mode apples-mode) "Major modes `auto-complete-mode' can run on." (repeat symbol) ac-compatible-packages-regexp "^ac-" "Regexp to indicate what packages can work with auto-complete." ac-non-trigger-commands '(*table--cell-self-insert-command electric-buffer-list) "Commands that can't be used as triggers of `auto-complete'." (repeat symbol) ac-trigger-commands '(self-insert-command) "Trigger commands that specify whether `auto-complete' should start or not." (repeat symbol) ac-trigger-commands-on-completing '(delete-backward-char backward-delete-char backward-delete-char-untabify autopair-backspace paredit-backward-delete paredit-backward-delete-word) "Trigger commands that specify whether `auto-complete' should continue or not." (repeat symbol) ac-trigger-key "Non-nil means `auto-complete' will start by typing this key.\nIf you specify this TAB, for example, `auto-complete' will start by typing TAB,\nand if there is no completions, an original command will be fallbacked." (choice (const :tag "None" nil) (string :tag "Key")) :set #[(symbol value) "\302 \"\210 \205\303\304!\205\304 !\207" [symbol value set-default fboundp ac-set-trigger-key] 3] ac-auto-start 2 "Non-nil means completion will be started automatically.\nPositive integer means if a length of a word you entered is larger than the value,\ncompletion will be started automatically.\nIf you specify `nil', never be started automatically." (choice (const :tag "Yes" t) (const :tag "Never" nil) (integer :tag "Require")) ac-stop-words "List of string to stop completion." (repeat string) ac-ignores ac-use-dictionary-as-stop-words "Non-nil means a buffer related dictionary will be thought of as stop words." ac-ignore-case 'smart "Non-nil means auto-complete ignores case.\nIf this value is `smart', auto-complete ignores case only when\na prefix doesn't contain any upper case letters." (choice (const :tag "Yes" t) (const :tag "Smart" smart) (const :tag "No" nil)) ac-dwim "Non-nil means `auto-complete' works based on Do What I Mean." ac-use-menu-map "Non-nil means a special keymap `ac-menu-map' on completing menu will be used." ac-use-overriding-local-map "Non-nil means `overriding-local-map' will be used to hack for overriding key events on auto-completion." ac-disable-inline "Non-nil disable inline completion visibility" ac-candidate-menu-min 1 "Number of candidates required to display menu" ac-max-width "Maximum width for auto-complete menu to have" (choice (const :tag "No limit" nil) (const :tag "Character Limit" 25) (const :tag "Window Ratio Limit" 0.5)) custom-declare-face ac-completion-face ((t (:foreground "darkgray" :underline t))) "Face for inline completion" ac-candidate-face ((t (:inherit popup-face))) "Face for candidate." ac-candidate-mouse-face ((t (:inherit popup-menu-mouse-face))) "Mouse face for candidate." ac-selection-face ((t (:inherit popup-menu-selection-face))) "Face for selected candidate."] 10) #@32 Hook for `auto-complete-mode'. (defvar auto-complete-mode-hook nil (#$ . 8499)) #@47 Dummy variable to suppress compiler warnings. (defvar auto-complete-mode nil (#$ . 8585)) #@19 Old cursor color. (defvar ac-cursor-color nil (#$ . 8681)) #@29 Inline completion instance. (defvar ac-inline nil (#$ . 8746)) #@16 Menu instance. (defvar ac-menu nil (#$ . 8815)) #@34 Flag to show menu on timer tick. (defvar ac-show-menu nil (#$ . 8869)) #@61 Cons of prefix marker and selected item of last completion. (defvar ac-last-completion nil (#$ . 8946)) #@21 Quick help instance (defvar ac-quick-help nil (#$ . 9056)) #@66 Non-nil means `auto-complete-mode' is now working on completion. (defvar ac-completing nil (#$ . 9121)) #@40 Buffer where auto-complete is started. (defvar ac-buffer nil (#$ . 9231)) #@24 Start point of prefix. (defvar ac-point nil (#$ . 9311)) #@33 Last point of updating pattern. (defvar ac-last-point nil (#$ . 9374)) #@16 Prefix string. (defvar ac-prefix nil (#$ . 9451)) (defvaralias 'ac-target 'ac-prefix) #@26 Last selected candidate. (defvar ac-selected-candidate nil (#$ . 9543)) #@92 Common part string of meaningful candidates. If there is no common part, this will be nil. (defvar ac-common-part nil (#$ . 9621)) #@87 Common part string of whole candidates. If there is no common part, this will be nil. (defvar ac-whole-common-part nil (#$ . 9758)) #@28 Overlay for prefix string. (defvar ac-prefix-overlay nil (#$ . 9896)) #@24 Completion idle timer. (defvar ac-timer nil (#$ . 9972)) #@23 Show menu idle timer. (defvar ac-show-menu-timer nil (#$ . 10035)) #@24 Quick help idle timer. (defvar ac-quick-help-timer nil (#$ . 10108)) #@17 Flag to update. (defvar ac-triggered nil (#$ . 10183)) #@46 Limit number of candidates for each sources. (defvar ac-limit nil (#$ . 10244)) #@21 Current candidates. (defvar ac-candidates nil (#$ . 10330)) #@42 Candidates cache for individual sources. (defvar ac-candidates-cache nil (#$ . 10396)) #@42 Non-nil means fuzzy matching is enabled. (defvar ac-fuzzy-enable nil (#$ . 10489)) #@48 Non-nil means DWIM completion will be allowed. (defvar ac-dwim-enable nil (#$ . 10578)) #@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) (#$ . 10672)) #@24 Keymap for completion. (defvar ac-completing-map (byte-code "\304 \305\306\307#\210\305\310\307#\210\305\311\312#\210\305\313\314#\210\305\315\316#\210\305\317\320#\210\305\321\316#\210\305\322\320#\210\305\323\324#\210\305\325\326#\210\305\327\324#\210\305\330\326#\210\305\331\332#\210\305\333\334#\210\305\335\332#\210\305\336\334#\210\337\340 \nW\203\233\341\342\343 T\"!\211\344\345\346\347\350\351\352\353 EE\354BBFM\210\305\355\342\356 T\"! #\210) T\211\202h*)\207" [map i --dotimes-limit-- symbol make-sparse-keymap define-key " " ac-expand [tab] " " ac-complete [134217737] auto-complete "\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-select-%d" lambda nil (interactive) when and (ac-menu-live-p) popup-select ac-menu ((ac-complete)) read-kbd-macro "M-%s"] 11) (#$ . 10825)) (defvaralias 'ac-complete-mode-map 'ac-completing-map) #@43 Keymap for completion on completing menu. (defvar ac-menu-map (byte-code "\302 \303 \"\210\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304\315\316#\210\304\317\320#\210\304\321\322#\210\304\323\324#\210)\207" [map ac-completing-map make-sparse-keymap set-keymap-parent define-key " " ac-complete "" ac-next "" ac-previous "" ac-isearch [mouse-1] ac-mouse-1 [down-mouse-1] ac-ignore [mouse-4] ac-mouse-4 [mouse-5] ac-mouse-5] 4) (#$ . 11864)) (defvar ac-current-map (byte-code "\302 \303 \"\210)\207" [map ac-completing-map make-sparse-keymap set-keymap-parent] 3)) #@25 Default match function. (defvar ac-match-function 'all-completions (#$ . 12476)) #@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) (cc-member . ac-prefix-cc-member)) (#$ . 12563)) #@25 Sources for completion. (defvar ac-sources '(ac-source-words-in-same-mode-buffers) (#$ . 12833)) (make-variable-buffer-local 'ac-sources) #@34 Compiled source of `ac-sources'. (defvar ac-compiled-sources nil (#$ . 12977)) #@68 Current working sources. This is sublist of `ac-compiled-sources'. (defvar ac-current-sources nil (#$ . 13062)) #@26 Do not use this anymore. (defvar ac-omni-completion-sources nil (#$ . 13180)) (defvar ac-current-prefix-def nil) (defvar ac-ignoring-prefix-def nil) #@33 Database of completion history. (defvar ac-comphist nil (#$ . 13335)) (defalias 'ac-comphist-make-tab #[nil "\300\301\302\"\207" [make-hash-table :test equal] 3]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put ac-comphist-make-tab speed -1 put byte-optimizer byte-compile-inline-expand] 5) (defalias 'ac-comphist-tab #[(db) "@\207" [db] 1]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put ac-comphist-tab speed -1 put byte-optimizer byte-compile-inline-expand] 5) (defalias 'ac-comphist-cache #[(db) "A@\207" [db] 1]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put ac-comphist-cache speed -1 put byte-optimizer byte-compile-inline-expand] 5) (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^\306X\205-\307 !\310\n \311#\211\f \f HTI\210*\312 \n\211A@)\")\207" [prefix string db stat #1=#:v #2=#:v 0 substring-no-properties ac-comphist-get t remhash] 5]) (defalias 'ac-comphist-score #[(db string prefix) " GS^\306X\203\263\307 \n\211A@)\"\211\203 H\206\261\310\n \"\311\211\203\210\306 G\312\313\245\314\245\315\211\316W\203\206[\317Z!Z^]\320\321[_!T\245\f H_\\T\315\202J.\f\311\322 GZ\323\245Z]\\ \204\252\324 G\315\"\325 \n\211A@)#\210 \fI\210\f*)\207\311\207" [prefix string db cache score stat 0 gethash ac-comphist-get 0.0 5 700.0 6.0 nil t abs 1.0 exp 0.3 100.0 make-vector puthash p #1=#:--cl-var-- a b d x r #2=#:--cl-var--] 7]) (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) "\3021\303\304\305\306\"\307\310 @\"\210)!0\207\210\311\312!\210\313\207" [tab sexp (error) ac-comphist-make make-hash-table :test equal mapc #[(cons) "\302@A #\207" [cons tab puthash] 4] message "Invalid comphist db." nil] 4]) (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 "\304!\205(\3051&\306\307\310\"r q\210\311\216\312!\210eb\210\313\314p!!+0\202(\210\315\211\206/\316 \211)\207" [ac-comphist-file #1=#:temp-buffer db ac-comphist file-exists-p (error) generate-new-buffer " *temp*" t #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] insert-file-contents ac-comphist-deserialize read nil ac-comphist-make] 4 nil nil]) (defalias 'ac-comphist-save #[nil "\303\304!\210\3051\"\306\307\310\"rq\210\311\216\304\312 !p\"\210\313ed\n#+0\207\210\314\207" [#1=#:temp-buffer ac-comphist ac-comphist-file require pp (error) generate-new-buffer " *temp*" t #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] ac-comphist-serialize write-region nil] 4 nil nil]) (defvar ac-buffer-dictionary nil) (defvar ac-file-dictionary (make-hash-table :test 'equal)) (defalias 'ac-clear-dictionary-cache #[nil "\303 \304\211\203\" @rq\210\305\306!\203\307\306!\210) A\211\204 *\310\n!\207" [buffer --dolist-tail-- ac-file-dictionary buffer-list nil local-variable-p ac-buffer-dictionary kill-local-variable clrhash] 3 nil nil]) (defalias 'ac-file-dictionary #[(filename) "\305 \306#\211\203\n\306=\204\n\202@\307\31017\311\312\313\"r\fq\210\314\216\315!\210\316\317 \320\313#\211+0\210\2028\210\321 #\210 ))\207" [filename ac-file-dictionary cache result #1=#:temp-buffer gethash none nil (error) generate-new-buffer " *temp*" t #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] insert-file-contents split-string buffer-string "\n" puthash] 5]) (defalias 'ac-mode-dictionary #[(mode) "\306!\3071\310\311 !C0\202\210\312B\312\211 :\203h @\313\f\312\211\312\314 :\203Y @\211\315\nQ\316!\203P\313\317!!\244 A\312\202/\237-! \244 A\211\202 \237+\207" [mode #1=#:--cl-var-- name #2=#:--cl-var-- ac-dictionary-directories #3=#:--cl-var-- symbol-name (error) file-name-extension buffer-file-name nil reverse t "/" file-exists-p ac-file-dictionary dir file #4=#:--cl-var-- #5=#:--cl-var--] 5]) (defalias 'ac-buffer-dictionary #[(&optional buffer) "r\206pq\210\305\301!\203 \202#\306\301!\210\307\310\n\311 !\312\313\f\"$\211)\207" [buffer ac-buffer-dictionary ac-user-dictionary major-mode ac-dictionary-files local-variable-p make-local-variable apply append ac-mode-dictionary mapcar ac-file-dictionary] 7]) #@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 (#$ . 18514)]) (defalias 'ac-stop-word-p #[(word) " \235\206\n\205\303 \235\207" [word ac-stop-words ac-use-dictionary-as-stop-words ac-buffer-dictionary] 2]) #@56 Same as `ac-prefix-symbol' but ignore a number prefix. (defalias 'ac-prefix-default #[nil "\306 \211\205F` \307\310\211 \307\f\n W\203B\nf\311\fX\203,\f\312X\2045\f\307\211\2026\310\203B\nT\307 \202\f.)\207" [start end pos #1=#:--cl-var-- c #2=#:--cl-var-- ac-prefix-symbol nil t 48 57 #3=#:--cl-var-- #4=#:--cl-var--] 3 (#$ . 18905)]) #@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 (#$ . 19272)]) #@14 File prefix. (defalias 'ac-prefix-file #[nil "\301\302\303\304#\211\205\fT)\207" [point re-search-backward "[\"<>' \n]" nil t] 5 (#$ . 19450)]) (defalias 'ac-windows-remote-file-p #[(file) "\303>\205\304 \305\306\307#)\266\203\207" [system-type file inhibit-changing-match-data (ms-dos windows-nt cygwin) "\\`\\(?://\\|\\\\\\\\\\)" nil t string-match] 7]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put ac-windows-remote-file-p speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@41 Existed (or to be existed) file prefix. (defalias 'ac-prefix-valid-file #[nil "\306 `\307\310\311#\211\205\nT)\206\211 {\211\205X\312\313\f\"\204<\312\314\f\"\2051\315\316\f\"\211\205X\317\f!\205X\f \320>\205R\321\f\322\311\312#)\266\203)?\205X ,\207" [line-beg end point start file system-type line-beginning-position re-search-backward "[\"<>'= \n]" t string-match "^/" "^[^/]*/" match-string 0 file-directory-p (ms-dos windows-nt cygwin) "\\`\\(?://\\|\\\\\\\\\\)" nil inhibit-changing-match-data] 8 (#$ . 19974)]) #@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 (#$ . 20525)]) #@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 (#$ . 20729)]) #@44 C-like languages member(.)(->)(::) prefix. (defalias 'ac-prefix-cc-member #[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 (#$ . 20968)]) #@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 (#$ . 21205)]) (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\203J\207\207" [source] 1]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put ac-source-entity speed -1 put byte-optimizer byte-compile-inline-expand] 5) (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--] 5]) #@49 Compiled `SOURCES' into expanded sources style. (defalias 'ac-compile-sources #[(sources) "\306\211 :\203\204 @\307\n!\203}\n\2119\203 \nJ\202!\n)\304\n\236\310\fA \"\211 \203L\304 B\211\n\235\203C\n\210\202H\nB)\202f\f\204f\304\311B\211\n\235\203`\n\210\202e\nB)*\312\n\236\211\nA\313=\203x\n\314\241\210)\n B A\211\202 \237+\207" [sources #1=#:--cl-var-- source #2=#:--cl-var-- prefix ac-prefix-definitions nil ac-source-available-p assoc-default ac-prefix-default match substring ac-match-substring real #3=#:x #4=#:x] 4 (#$ . 22378)]) (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]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put ac-menu-live-p speed -1 put byte-optimizer byte-compile-inline-expand] 5) (defalias 'ac-menu-create #[(point width height) "\306 \n\307\310\311\312\313 \314\315\316\317\320\310\321\310\322\323\324\f&\211\207" [point width height ac-max-width ac-menu-map ac-menu popup-create :around t :face ac-candidate-face :max-width :mouse-face ac-candidate-mouse-face :selection-face ac-selection-face :symbol :scroll-bar :margin-left 1 :keymap] 22]) (defalias 'ac-menu-delete #[nil "\205 \301!\210\302\211\207" [ac-menu popup-delete nil] 2]) (defalias 'ac-inline-overlay #[nil "@\207" [ac-inline] 1]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put ac-inline-overlay speed -1 put byte-optimizer byte-compile-inline-expand] 5) (defalias 'ac-inline-live-p #[nil "\205\n@\205\n\301\207" [ac-inline t] 1]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put ac-inline-live-p speed -1 put byte-optimizer byte-compile-inline-expand] 5) (defalias 'ac-inline-show #[(point string) "\204\306C\212@\307\304 !\307 b\210\306l\204F \fW\203F\306f\211\203F\310=\204F \311!\\ T\306u\210\202)b\210 \307U\204f \fX\204f \fV\203f \312 \fZ\313\"P\314 \315\316#\203\205\317\211 \\#\210\320\321\306#\210\202\246\322\211 \\\"\211\240\210)\320\323\324#\210\320\325 #\210 \307=\203\276\326\307\327\330\331 %\210\320\332 #\210\202\333 \307\327O \327\306O\320\333#\210\320\332#\210*\320\301\n#.\207" [ac-inline string original-string length string-width width nil 0 9 char-width make-string 32 propertize face ac-completion-face move-overlay overlay-put invisible make-overlay priority 9999 keymap put-text-property 1 cursor t after-string display overlay point c #1=#:c ac-current-map] 7]) (defalias 'ac-inline-delete #[nil "\205@\205\301 \210\302@!\210\303\211\207" [ac-inline ac-inline-hide delete-overlay nil] 2]) (defalias 'ac-inline-hide #[nil "\205*@\205*@\303\211\205)\304\nee#\210\305\n\306\303#\210\305\n\307\310#\210\305\n\311\310#*\207" [ac-inline buffer-undo-list overlay t move-overlay overlay-put invisible display nil 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 "?\2057\306m\203\212\307\211\310 \311\216\312c\210-\307\313 `T\306\307\211%\314\315\316#\210\314\317\320 #\210\314\301 #)\207" [ac-prefix-overlay newline modified inhibit-read-only buffer-undo-list ac-point nil t buffer-modified-p #[nil "\301!\207" [modified set-buffer-modified-p] 2] "\n" make-overlay overlay-put priority 9999 keymap make-sparse-keymap] 6]) (defalias 'ac-remove-prefix-overlay #[nil "\205(\304\305\"\203%\212\306\211\307 \310\216db\210`Sf\311=\203$\312\313!\210-\314!\207" [ac-prefix-overlay modified inhibit-read-only buffer-undo-list overlay-get newline t buffer-modified-p #[nil "\301!\207" [modified set-buffer-modified-p] 2] 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]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put ac-selected-candidate speed -1 put byte-optimizer byte-compile-inline-expand] 5) (defalias 'ac-prefix #[(requires ignore-list) "`\306\211\306\211\307 \306\211\n\306\310 :\203\335 @\311\312\"\n\311\313\"\2067 \2067\314\n\235\204\324\212\n9\203N\n \202\245\n;\203i\315\n\316P\306\310#\205\245\314\224\206\245\317\224\202\245\n\242;\203\241\n@\nA@\320\n8\315\316P\306\310#\205\235\203\225\321\202\226\322\206\234\317!+\202\245\323\n!\211\203\273\250\203\273 ZW\203\273\306 \203\323 \204\310\n  \n\232\203\323\fB) A\306\202\n\205\346 \n\f\237E.\n\207" [current point point-def prefix-def sources #1=#:--cl-var-- nil ac-compiled-sources t assoc-default prefix requires 1 re-search-backward "\\=" 0 2 match-end match-beginning eval source req #2=#:--cl-var-- ignore-list group end regexp] 5]) #@49 Initialize current sources to start completion. (defalias 'ac-init #[nil "\306 \306\211\307\n:\2035\n@\310\311 \"\211\203-\212\312\f!\203(\f \210\202,\313\f!\210)\nA\306\202\n,\306\207" [ac-candidates-cache ac-current-sources #1=#:--cl-var-- source function #2=#:--cl-var-- nil t assoc-default init functionp eval] 4 (#$ . 27982)]) (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]) (defalias 'ac-delete-duplicated-candidates #[(candidates) "\301\302\303\304\305%\207" [candidates cl-delete-duplicates :test #[(x y) " \232\205\302\303\"\302 \303\"=\207" [x y popup-item-property action] 4] :from-end t] 6]) (defalias 'ac-reduce-candidates #[(candidates) "\305 GW\203\306 !\2029 S\n:\203) S\211\307Y\203)\nA\211\202\nA\n\310\241\210\311\306 !\312\f!\"+)\207" [size candidates c #1=#:--cl-var-- rest 20 ac-delete-duplicated-candidates 0 nil append copy-sequence] 5]) #@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%\203\302\203\302\203\242\315\f$\211@\316A!\317V\205sS\233\211A\203\203\310\241\210\320\n\"\320\n\"\203\234\241\210-\202\331\315\f#\211\205\264\321@!\320\n\"\202\331\203\315\316!\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 ac-comphist-sort ac-reduce-candidates 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 (#$ . 29660)]) #@61 Update candidates of menu to `ac-candidates' and redraw it. (defalias 'ac-update-candidates #[(cursor scroll-top) "\306! >\204\307\310\311D\"\210\211\312 I\210)\306! >\204&\307\310\311D\"\210\211\313 I\210)G\314U\203C\315\316 \210\202I\317\320 \210\204Q\321 \210\322\"\210\204iGX\203i\323!\207\205q\324!\207" [ac-menu cl-struct-popup-tags #1=#:v cursor #2=#:v scroll-top type-of signal wrong-type-argument popup 21 23 1 t ac-activate-completing-map nil ac-deactivate-completing-map ac-inline-update popup-set-list popup-hide popup-draw ac-candidates ac-dwim-enable ac-completing ac-disable-inline ac-fuzzy-enable ac-candidate-menu-min ac-show-menu] 5 (#$ . 30541)]) #@62 Force to redraw candidate menu with current `ac-candidates'. (defalias 'ac-reposition #[nil "\306! >\204\307\310\311D\"\210\312H\306! >\204!\307\310\311D\"\210\313H\306! >\2043\307\310\311D\"\210\314H\315 \210\316 \317!\n#\210\320\f \"+\207" [ac-menu cl-struct-popup-tags height scroll-top cursor ac-point type-of signal wrong-type-argument popup 21 23 5 ac-menu-delete ac-menu-create popup-preferred-width ac-update-candidates ac-candidates] 6 (#$ . 31255)]) #@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 (#$ . 31739)]) #@19 Abort completion. (defalias 'ac-abort #[nil "\300 \207" [ac-cleanup] 1 (#$ . 32711)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put ac-abort speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@256 Determine the boundary of the region to delete before inserting the completed string. This will be either the position of current point, or the end of the symbol at point, if the text from point to end of symbol is the right part of the completed string. (defalias 'ac-extend-region-to-delete #[(string) "\304\305!\243\206`\306`\"\211G G\nY\203&\307 \n[\" \230\203&\202'`+\207" [end-of-symbol remaindar remaindar-length string bounds-of-thing-at-point symbol buffer-substring-no-properties substring-no-properties] 4 (#$ . 32938)]) #@341 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. When `buffer-undo-list' is `t', `remove-undo-boundary' has no effect. (defalias 'ac-expand-string #[(string &optional remove-undo-boundary) "\306=\203\307\n `{\232?\205M\310 \210 \203)\307\212 \311\n!|\210*AA\202/ \311\n!|\210\312\n!c\210 \203EA@\250\203E\211AA\241\210\310 \210\n\n\211\207" [buffer-undo-list remove-undo-boundary string ac-point ac-selected-candidate ac-prefix t nil undo-boundary ac-extend-region-to-delete substring-no-properties] 3 (#$ . 33487)]) #@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 (#$ . 34247)]) (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\230 \205\230\n\204 \205\230\f?\205\230\306 \210\305 \307 !\203\310!>\2047\311\312\313D\"\210\314HY\204\310!>\204S\311\312\313D\"\210\314H\315ZX\204\310!>\204q\311\312\313D\"\210\316H\317V\203\221\320 \203\221\321 \210\322 \210\323 \210\324#\210)\325\317\211\"\210\326\207" [auto-complete-mode ac-prefix ac-triggered force isearch-mode ac-candidates ac-put-prefix-overlay popup-preferred-width type-of signal wrong-type-argument popup 4 10 7 0 ac-menu-at-wrapper-line-p ac-inline-hide ac-remove-quick-help 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\311 !\f>\204\312\313\314 D\"\210 \315H\316 \"\211;\205p\317 !\2031\320\2023\310\321\322 \206G \203F\323 \"\206G`\310\324\310\211\n?\205S\325& \210\306\326\"?\205p\327 \210\330\216\331\306\332\"!B)\320,\207" [args point around menu cl-struct-popup-tags parent-offset plist-get :point nil type-of signal wrong-type-argument popup 22 popup-menu-documentation popup-hidden-p t pos-tip-show popup-tip-face popup-child-point 300 0 :nowait clear-this-command-keys #[nil "\300 \207" [pos-tip-hide] 1] read-event :prompt item doc popup-tip-max-width unread-command-events] 11]) (defalias 'ac-quick-help-use-pos-tip-p #[nil "\205 \205 \302\303!\207" [ac-quick-help-prefer-pos-tip window-system featurep pos-tip] 2]) (defalias 'ac-quick-help #[(&optional force) "\204\306 \204 ?\205/\307\n!\205/ ?\205/\310 \203\"\311\202#\312\n\313\314\f\315 \316\317&\211\207" [force this-command ac-menu ac-quick-help ac-point ac-quick-help-height called-interactively-p popup-live-p ac-quick-help-use-pos-tip-p ac-pos-tip-show-quick-help popup-menu-show-quick-help nil :point :height :nowait t] 9 nil nil]) (defalias 'ac-remove-quick-help #[nil "\301 \203\302 \210\205\303!\210\304\211\207" [ac-quick-help ac-quick-help-use-pos-tip-p pos-tip-hide popup-delete nil] 2]) (defalias 'ac-last-quick-help #[nil "\2058\303@!p=\2058\304A!\305@!\211;\2057\306 \203+\307\n\310 \310\311%\2027\312\n\313 \314\315\316\315\317\315& *\207" [ac-last-completion point doc marker-buffer popup-item-documentation marker-position ac-quick-help-use-pos-tip-p pos-tip-show nil 300 popup-tip :point :around t :scroll-bar :margin] 11 nil nil]) (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])) (byte-code "\300\301\302\303#\300\207" [function-put ac-define-quick-help-command lisp-indent-function 2] 4) (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 "\304!\205)\305 \210\306 \210 \203$\307 \203\310\202\311\312\313\314\315 %)\207\312\313\314#\207" [ac-menu ac-use-quick-help popup-menu-show-quick-help-function ac-quick-help-delay popup-live-p ac-cancel-show-menu-timer ac-show-menu ac-quick-help-use-pos-tip-p ac-pos-tip-show-quick-help popup-menu-show-quick-help popup-isearch :callback ac-isearch-callback :help-delay] 6 nil nil]) #@44 (fn &key SOURCES (TRIGGERED \='command)) (defalias 'auto-complete-1 #[(&rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"\206\311A@ \203> @\312>\203' AA\211\202\313>A@\2035\314\211\202\315\316 @\"\210\202)\317\f! \205L @\205L\320\314\321 \210 \206\\\204h\203k\320\322\310\n\")\323\320!\203\255 \203\204 @\203\204\324 \210\204\226G\325V\203\226\203\240 !\326 )\204\255\"\203\255\204\255\327 \210-\207" [#1# sources triggered #2=#:--cl-keys-- ac-menu ac-inline plist-member :sources :triggered (nil command) (:sources :triggered :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:sources :triggered)" popup-live-p t ac-cleanup ac-start ac-update-greedy ac-inline-hide 1 ac-expand-common ac-fuzzy-complete started inline-live menu-live ac-sources 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] 4 (#$ . 39840)]) #@41 Start auto-completion at current point. (defalias 'auto-complete #[(&optional sources) "\301\302\"\207" [sources auto-complete-1 :sources] 3 (#$ . 40847) nil]) #@42 Start fuzzy completion at current point. (defalias 'ac-fuzzy-complete #[nil "\306\307\310\311#\204\312\313!\210\2028\314!\204\315 \210\316\n\203, \204(\317\320 \321\"\322\n!\210\311\211\310\323\311!\210)\311\207" [ac-menu ac-match-function ac-fuzzy-cursor-color ac-cursor-color ac-show-menu ac-fuzzy-enable require fuzzy nil t message "Please install fuzzy.el if you use fuzzy completion" popup-live-p ac-start fuzzy-all-completions frame-parameter selected-frame cursor-color set-cursor-color ac-update ac-triggered] 5 (#$ . 41014) nil]) #@24 Select next candidate. (defalias 'ac-next #[nil "\303!\205\304!\203\305 \210\306!\210 \307=\205\310\211\207" [ac-menu this-command ac-dwim-enable popup-live-p popup-hidden-p ac-show-menu popup-next ac-next t] 2 (#$ . 41573) nil]) #@28 Select previous candidate. (defalias 'ac-previous #[nil "\303!\205\304!\203\305 \210\306!\210 \307=\205\310\211\207" [ac-menu this-command ac-dwim-enable popup-live-p popup-hidden-p ac-show-menu popup-previous ac-previous t] 2 (#$ . 41819) nil]) #@118 Try expand, and if expanded twice, select next candidate. If given a prefix argument, select the previous candidate. (defalias 'ac-expand #[(arg) "\306 ?\205^\205 \307!\211\205]\n \232\203- \204\"\310 \210\202%\311 \210\205,\307!\312 \f\313=\2068\f\314=\"\210\315! >\204I\316\317\320D\"\210\321H\322V\203Y\323 \203Y\324 \210\325 )\207" [ac-menu string ac-prefix arg last-command cl-struct-popup-tags ac-expand-common popup-selected-item ac-next ac-previous ac-expand-string ac-expand ac-expand-previous type-of signal wrong-type-argument popup 7 0 ac-menu-at-wrapper-line-p ac-reposition t ac-show-menu] 5 (#$ . 42082) "P"]) #@50 Like `ac-expand', but select previous candidate. (defalias 'ac-expand-previous #[(arg) "\301?!\207" [arg ac-expand] 2 (#$ . 42735) "P"]) #@39 Try to expand meaningful common part. (defalias 'ac-expand-common #[nil "\203 \203 \306 \207\n\205%\n@\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 (#$ . 42879) nil]) (defalias 'ac-complete-1 #[(candidate) "\306\302\"\307\203-\310!\204\311 \203-\203-\f\204#\312 C\f@ \223\210\f\241\210\313 \210\n\203:\n \210\202A \203A\314 \210*\207" [candidate fallback action ac-point ac-last-completion ac-buffer popup-item-property nil ac-expand-string t make-marker ac-cleanup ac-fallback-command] 3]) #@15 Try complete. (defalias 'ac-complete #[nil "\301\205\302!!\207" [ac-menu ac-complete-1 popup-selected-item] 3 (#$ . 43535) nil]) #@82 Start completion. (fn &key REQUIRES FORCE-INIT (TRIGGERED (or ac-triggered t))) (defalias 'ac-start #[(&rest #1=#:--cl-rest--) "\306\307\"A@\306\310\"A@\306\311\"\206\312 \206\313DA@ \203K @\314>\2034 AA\211\202\"\315>A@\203B\312\211\202\"\316\317 @\"\210\202!) \204W\320\321!\202\367\322 !\"\211\"@#\"A@$\323\"8%\312&\n\206{'$=?($\203\226\324$`\"&\f\325=\204\235\326&!\203\235\312\327 \210\202\365)\203\263*\203\263+\204\263\330\331 \332\"+,\206\300-\313=\205\300\313,%.p/$'&01\f#2(\204\3453\204\350\333 \210\334 \210\335 \210\336 \210\337 \210\313.+\207" [#1# requires force-init ac-triggered triggered #2=#:--cl-keys-- plist-member :requires :force-init :triggered nil t (:requires :force-init :triggered :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:requires :force-init :triggered)" message "auto-complete-mode is not enabled" ac-prefix 2 buffer-substring-no-properties command ac-stop-word-p ac-cleanup frame-parameter selected-frame cursor-color ac-init ac-set-timer ac-set-show-menu-timer ac-set-quick-help-timer ac-put-prefix-overlay auto-complete-mode ac-ignoring-prefix-def info prefix-def point sources prefix ac-point init ac-use-fuzzy ac-fuzzy-cursor-color ac-cursor-color ac-show-menu ac-auto-show-menu ac-current-sources ac-buffer ac-candidate-limit ac-limit ac-current-prefix-def ac-prefix-overlay] 4 (#$ . 43674) nil]) #@18 Stop completing. (defalias 'ac-stop #[nil "\301\302 \207" [ac-selected-candidate nil ac-cleanup] 1 (#$ . 45123) nil]) #@19 Same as `ignore'. (defalias 'ac-ignore #[(&rest ignore) "\300\207" [nil] 1 (#$ . 45248) nil]) (defalias 'ac-mouse-1 #[(event) "\302!\211\205 \303 !)\207" [event it popup-menu-item-of-mouse-event ac-complete-1] 3 nil "e"]) (defalias 'ac-mouse-4 #[(event) "\300 \207" [ac-previous] 1 nil "e"]) (defalias 'ac-mouse-5 #[(event) "\300 \207" [ac-next] 1 nil "e"]) (defalias 'ac-trigger-key-command #[(&optional force) "\303 \204\f\304\n!\203\305\306\307\"?\205\310\311!)\207" [started force last-command nil ac-trigger-command-p auto-complete-1 :triggered trigger-key ac-fallback-command ac-trigger-key-command] 3 nil "P"]) (defvar ac-clear-variables-every-minute-timer nil) (defvar ac-clear-variables-after-save nil) (defvar ac-clear-variables-every-minute nil) (defvar ac-minutes-counter 0) (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\205#\n@\211A\203 A \203 @\303L\210\nA\211\204\303*\207" [ac-clear-variables-after-save pair --dolist-tail-- 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\205$ @\nA\246\305=\203\n@\304L\210 A\211\204 \304*\207" [ac-minutes-counter ac-clear-variables-every-minute pair --dolist-tail-- 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! >?\205!\n>\206!\303\304\305!\"\206!\303\306\305!\"\207" [command ac-non-trigger-commands ac-trigger-commands string-match "self-insert-command" symbol-name "electric"] 4 (#$ . 47137)]) (defalias 'ac-fallback-key-sequence #[nil "\301\302 \"\303\304!\207" [unread-command-events append this-single-command-raw-keys read-key-sequence-vector ""] 3]) (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 ac-fallback-key-sequence 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 (#$ . 47868)]) (defalias 'ac-handle-pre-command #[nil "\3061L?\205* \307=\204\310 !\204\n\205* >\205*\311 ?\205*\f\206*\312\211\2045\313 !\203H 9\203@ \314N\204C\315 \210\316 \202J\317 0\207\320 !)\207" [ac-fuzzy-enable this-command ac-completing ac-trigger-commands-on-completing ac-triggered var (error) auto-complete ac-trigger-command-p ac-cursor-on-diable-face-p t ac-compatible-package-command-p ac-quick-help-command ac-remove-quick-help ac-inline-hide ac-cleanup ac-error] 2]) (defalias 'ac-handle-post-command #[nil "\3061*\205( \204\n\205( ?\205(`\307\310\n?\205 \"\210 ?\205(\311 0\207 \312 !)\207" [ac-triggered ac-auto-start ac-completing isearch-mode ac-last-point ac-disable-inline (error) ac-start :requires ac-inline-update ac-error var] 3]) #@34 Timer to poll end of completion. (defvar ac-flycheck-poll-completion-end-timer nil (#$ . 48877)) (defalias 'ac-syntax-checker-workaround #[nil "\2032\301\302!\210\303\304\305\306#\203\307\310\311\312\305$\210\313\310\305\"\210\303\314\305\306#\205I\307\315\316\312\305$\210\313\315\305\"\210\315\207\317\304!\203>\320\310\312\321#\210\317\314!\205I\320\315\312\322#\207" [ac-stop-flymake-on-completing make-local-variable ac-flycheck-poll-completion-end-timer require flymake nil t ad-add-advice flymake-on-timer-event (ac-flymake-stop-advice nil t (advice lambda nil (unless ac-completing ad-do-it))) around ad-activate flycheck flycheck-handle-idle-change (ac-flycheck-stop-advice nil t (advice lambda nil (if ac-completing (setq ac-flycheck-poll-completion-end-timer (run-at-time ac-flycheck-poll-completion-end-interval nil #'flycheck-handle-idle-change)) ad-do-it))) featurep ad-disable-advice ac-flymake-stop-advice ac-flycheck-stop-advice] 5]) (defalias 'ac-setup #[nil "\203\303!\210 \203\304 \210\n\204\305\306\211\307#\310 \207" [ac-trigger-key ac-use-comphist ac-clear-variables-every-minute-timer ac-set-trigger-key ac-comphist-init run-with-timer 60 ac-clear-variables-every-minute ac-syntax-checker-workaround] 4]) #@105 Non-nil if Auto-Complete mode is enabled. Use the command `auto-complete-mode' to change this variable. (defvar auto-complete-mode nil (#$ . 50129)) (make-variable-buffer-local 'auto-complete-mode) #@559 AutoComplete mode This is a minor mode. If called interactively, toggle the `Auto-Complete mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `auto-complete-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (defalias 'auto-complete-mode #[(&optional arg) "\305  \306=\203\n?\202 \247\203 \307W\203\310\202\311\312\303!\2032\313\302 \"\n\2032\302 B\n\203U\314 \210\315\316\317\310\311$\210\315\320\321\310\311$\210\315\322\323\310\311$\210\324\325!\210\202j\326\316\317\311#\210\326\320\321\311#\210\326\322\323\311#\210\327 \210\324\325\n\203t\330\202u\331\"\210\332\333!\203\232\305 \203\211\305 \232\203\232\334\335\336\n\203\225\337\202\226\340\f#\210))\341 \210\n\207" [#1=#:last-message arg auto-complete-mode local-minor-modes local current-message toggle 1 nil t boundp delq 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 " in current buffer" message "Auto-Complete mode %sabled%s" "en" "dis" force-mode-line-update] 5 (#$ . 50334) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) (defvar auto-complete-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\310\211%\207" [ac-mode-map auto-complete-mode-hook variable-documentation put "Hook run after entering or leaving `auto-complete-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode auto-complete-mode " AC"] 6) #@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 (#$ . 52463)]) (put 'global-auto-complete-mode 'globalized-minor-mode t) (defvar auto-complete-mode-major-mode nil nil) (byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313\314\315& \207" [make-variable-buffer-local auto-complete-mode-major-mode custom-declare-variable global-auto-complete-mode nil "Non-nil if Global Auto-Complete mode is enabled.\nSee the `global-auto-complete-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-auto-complete-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group auto-complete] 12) #@362 Toggle Auto-Complete mode in all buffers. With prefix ARG, enable Global Auto-Complete mode if ARG is positive; otherwise, disable it. If called from Lisp, enable the mode if ARG is omitted or nil. 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\303 \310=\203\311\303!?\202\" \247\203! \312W\203!\313\202\"\314\"\210\315\302!\2039\316\303\n\"\311\303!\2039\303\nB \203O\317\320\321\"\210\317\322\323\"\210\317\324\325\"\210\202^\326\320\321\"\210\326\322\323\"\210\326\324\325\"\210\327 \313\211\203\211 @r\fq\210 \203x\330 \210\202\201\203\201\331\332!\210) A\211\204g*\333\334\311\303!\203\226\335\202\227\336\"\210\337\340!\203\304\341\303!\210\306 \203\257\306 \232\203\304\342(\343\344\311\303!\203\276\345\202\277\346(#\210))\347 \210\311\303!\207" [#1=#:last-message arg global-minor-modes global-auto-complete-mode buf --dolist-tail-- current-message set-default toggle default-value 1 nil t boundp delq 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 auto-complete-mode -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 "" message "Global Auto-Complete mode %sabled%s" "en" "dis" force-mode-line-update local] 5 (#$ . 53369) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) (defvar global-auto-complete-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [global-auto-complete-mode-map global-auto-complete-mode-hook variable-documentation put "Hook run after entering or leaving `global-auto-complete-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode global-auto-complete-mode boundp] 6) (defvar auto-complete-mode-set-explicitly nil nil) (make-variable-buffer-local 'auto-complete-mode-set-explicitly) (defalias 'auto-complete-mode-set-explicitly #[nil "\301\211\207" [auto-complete-mode-set-explicitly t] 2]) (byte-code "\300\301\302\303#\210\304\305\301\"\207" [put auto-complete-mode-set-explicitly definition-name global-auto-complete-mode add-hook auto-complete-mode-hook] 4) (defvar global-auto-complete-mode-buffers nil) (defalias 'global-auto-complete-mode-enable-in-buffers #[nil "\306 \306\211\205B @\307\n!\203:r\nq\210\f\2046  =\2046\2033\310\311!\210\312 \210\2026\312 \210 ) A\211\204\f\306+\207" [global-auto-complete-mode-buffers buffers buf --dolist-tail-- auto-complete-mode-set-explicitly auto-complete-mode-major-mode nil buffer-live-p auto-complete-mode -1 auto-complete-mode-maybe major-mode] 3]) (put 'global-auto-complete-mode-enable-in-buffers 'definition-name 'global-auto-complete-mode) (defalias 'global-auto-complete-mode-check-buffers #[nil "\300 \210\301\302\303\"\207" [global-auto-complete-mode-enable-in-buffers 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 (#$ . 57191) nil]) #@122 linum-mode tries to display the line numbers even for the completion menu. This workaround stops that annoying behavior. (defalias 'ac-linum-workaround #[nil "\300\301\302\303\304$\210\305\301\304\"\210\301\207" [ad-add-advice linum-update (ac-linum-update-workaround nil t (advice lambda nil (unless ac-completing ad-do-it))) around nil ad-activate] 5 (#$ . 57677) nil]) #@62 Source definition macro. It defines a complete command also. (defalias 'ac-define-source '(macro . #[(name source) "\302\303\304\305\306\"!D\307\304\305\306\"! E\310\304\305\311\"!\312\313\314\315\304\305\306\"!CDD\257F\207" [name source progn defvar intern format "ac-source-%s" setq defun "ac-complete-%s" nil (interactive) auto-complete quote] 13 (#$ . 58055)])) (byte-code "\300\301\302\303#\300\207" [function-put ac-define-source lisp-indent-function 1] 4) (defvar ac-word-index nil) (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\310C@\203\310\240\210A\311 \n \250\203( \206)\312#\f\310 \211\f\205T\f@\211 \235\204J B \241\210\fA\211\f\2046\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 --dolist-tail--] 6]) (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\205& @\n\204p=\204rq\210\305 \210) A\211\204 \304*\207" [buffer --dolist-tail-- 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\316\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 delete-dups ac-match-function ac-prefix] 8]) (byte-code "\301\302\207" [ac-source-words-in-buffer ((candidates . ac-word-candidates)) nil] 1) (defalias 'ac-complete-words-in-buffer #[nil "\300\301!\207" [auto-complete (ac-source-words-in-buffer)] 2 nil nil]) (byte-code "\301\302\207" [ac-source-words-in-all-buffer ((init . ac-update-word-index) (candidates . ac-word-candidates)) nil] 1) (defalias 'ac-complete-words-in-all-buffer #[nil "\300\301!\207" [auto-complete (ac-source-words-in-all-buffer)] 2 nil nil]) (byte-code "\301\302\207" [ac-source-words-in-same-mode-buffers ((init . ac-update-word-index) (candidates ac-word-candidates (lambda (buffer) (derived-mode-p (buffer-local-value 'major-mode buffer))))) nil] 1) (defalias 'ac-complete-words-in-same-mode-buffers #[nil "\300\301!\207" [auto-complete (ac-source-words-in-same-mode-buffers)] 2 nil nil]) (defvar ac-symbols-cache nil) (ac-clear-variable-every-10-minutes 'ac-symbols-cache) (defalias 'ac-symbol-file #[(symbol type) "\304\305!\203 \305 \"\207\306\307 \"!\211\310\232\203U\31112 \312=\203*\313\314\310#\202.\315\n\"0\2024\210\314\211\203Tr @q\210 A\203G Ab\210\316\317\314\320#\203S\321\322!))\n\204\205 \312=\204f\323N\250\203\205\324\325!\203\201 \312=\203z\326K\327\"\202\206\326\330\"\202\206\331\202\206\n)\207" [symbol type file-name location fboundp find-lisp-object-file-name describe-simplify-lib-file-name symbol-file "loaddefs.el" (error) defun find-function-search-for-symbol nil find-variable-noselect re-search-backward "^;;; Generated autoloads from \\(.*\\)" t match-string 1 variable-documentation get-buffer " *DOC*" help-C-file-name subr var C-source] 5]) (defalias 'ac-symbol-documentation #[(symbol) ";\203 \306!\3071\316\310\311\312\"r q\210\313\216p\314!\210\315\316!\210\317!\203:\320\321!\210\312\321\322!\210*\323 \202\313\324!\203w\325\326\"\315\327!\210 \203a\315\330!\210\315 \331=\203\\\332\202_\333 !!\210\315\334!\210\315\335\336\312#\206o\337!\210\323 )\202\313\340!\203\264\325\341\"\315\342!\210 \203\236\315\330!\210\315 \331=\203\231\332\202\234\333 !!\210\315\334!\210\315\335\343\312#\206\254\337!\210\323 )\202\313\335\344\312#\211'\205\312\315\345!\210\315'!\210\323 ),0\207\210\346\207" [symbol #1=#:temp-buffer standard-output major-mode help-xref-following file-name intern-soft (error) generate-new-buffer " *temp*" t #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] prin1 princ " is " fboundp require help-mode 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" nil doc] 6]) (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 "\301\302\207" [ac-source-symbols ((candidates . ac-symbol-candidates) (document . ac-symbol-documentation) (symbol . "s") (cache)) nil] 1) (defalias 'ac-complete-symbols #[nil "\300\301!\207" [auto-complete (ac-source-symbols)] 2 nil nil]) (defvar ac-functions-cache nil) (ac-clear-variable-every-10-minutes 'ac-functions-cache) (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 "\301\302\207" [ac-source-functions ((candidates . ac-function-candidates) (document . ac-symbol-documentation) (symbol . "f") (prefix . "(\\(\\(?:\\sw\\|\\s_\\)+\\)") (cache)) nil] 1) (defalias 'ac-complete-functions #[nil "\300\301!\207" [auto-complete (ac-source-functions)] 2 nil nil]) (defvar ac-variables-cache nil) (ac-clear-variable-every-10-minutes 'ac-variables-cache) (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 "\301\302\207" [ac-source-variables ((candidates . ac-variable-candidates) (document . ac-symbol-documentation) (symbol . "v") (cache)) nil] 1) (defalias 'ac-complete-variables #[nil "\300\301!\207" [auto-complete (ac-source-variables)] 2 nil nil]) (defvar ac-emacs-lisp-features nil) (ac-clear-variable-every-10-minutes 'ac-emacs-lisp-features) (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--] 7]) (byte-code "\301\302\207" [ac-source-features ((depends find-func) (candidates . ac-emacs-lisp-feature-candidates) (prefix . "require +'\\(\\(?:\\sw\\|\\s_\\)*\\)") (requires . 0)) nil] 1) (defalias 'ac-complete-features #[nil "\300\301!\207" [auto-complete (ac-source-features)] 2 nil nil]) (byte-code "\301\302\303\"\210\304\301\207" [ac-source-abbrev defvaralias ac-source-emacs-lisp-features ac-source-features ((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 "\301\302\207" [ac-source-files-in-current-dir ((candidates directory-files default-directory) (cache)) nil] 1) (defalias 'ac-complete-files-in-current-dir #[nil "\300\301!\207" [auto-complete (ac-source-files-in-current-dir)] 2 nil nil]) (defvar ac-filename-cache nil) (defalias 'ac-filename-candidate #[nil "\306 \203 \307 \n\"\206\310\n!?\205}\3111{\312\n!\313 \f\"\2061\314 \306\315# B\fB )\211\306\211\306\316:\203r@ P\317!\203`\320P\202bBA\306\202A\237.0\202}\210\306)\207" [file-name-handler-alist comment-start-skip ac-prefix dir ac-filename-cache files nil string-match file-regular-p (error) file-name-directory assoc-default directory-files "^[^.]" t file-directory-p "/" #1=#:--cl-var-- file path #2=#:--cl-var-- #3=#:--cl-var--] 5]) (byte-code "\301\302\207" [ac-source-filename ((init setq ac-filename-cache nil) (candidates . ac-filename-candidate) (prefix . valid-file) (requires . 0) (action . ac-start) (limit)) nil] 1) (defalias 'ac-complete-filename #[nil "\300\301!\207" [auto-complete (ac-source-filename)] 2 nil nil]) (byte-code "\301\302\207" [ac-source-dictionary ((candidates . ac-buffer-dictionary) (symbol . "d")) nil] 1) (defalias 'ac-complete-dictionary #[nil "\300\301!\207" [auto-complete (ac-source-dictionary)] 2 nil nil]) (provide 'auto-complete)