emacsd/elpa/auto-complete-20170125.245/auto-complete-config.elc

;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


(byte-code "\300\301!\210\300\302!\207" [require cl-lib auto-complete] 2)
(defvar ac-imenu-index nil)
(ac-clear-variable-every-10-minutes 'ac-imenu-index)
(defalias 'ac-imenu-candidates #[nil "\306\307\301!\204\f\310\301!\210	\206\3111\312 0\202\210\313\211\313\211\n\203\203
\250\2032
W\203\203\n\211A\242\211:\203#\f@\fA:\203T\314\315\"\210\202;\203\316\317\320!P\"\203\316\321\"\203w\306\322\224OBT*\202#\237,\207" [i ac-imenu-index stack result node ac-limit 0 local-variable-p make-local-variable (error) imenu--make-index-alist nil mapc #[(child) "	B\211\207" [child stack] 2] string-match "^" regexp-quote "^.*\\(()\\|=\\|<>\\)$" 1 cdr car ac-prefix] 5])
(byte-code "\301\302\207" [ac-source-imenu ((depends imenu) (candidates . ac-imenu-candidates) (symbol . "s")) nil] 1)
(defalias 'ac-complete-imenu #[nil "\300\301!\207" [auto-complete (ac-source-imenu)] 2 nil nil])
(byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\207" [custom-declare-face ac-gtags-candidate-face ((t (:inherit ac-candidate-face :foreground "navy"))) "Face for gtags candidate" :group auto-complete ac-gtags-selection-face ((t (:inherit ac-selection-face :background "navy"))) "Face for the gtags selected candidate."] 6)
(defalias 'ac-gtags-candidate #[nil "\3011\302\303\304\305\"!\306\"0\207\210\307\207" [ac-prefix (error) split-string shell-command-to-string format "global -ciq %s" "\n" nil] 5])
(byte-code "\301\302\207" [ac-source-gtags ((candidates . ac-gtags-candidate) (candidate-face . ac-gtags-candidate-face) (selection-face . ac-gtags-selection-face) (requires . 3) (symbol . "s")) nil] 1)
(defalias 'ac-complete-gtags #[nil "\300\301!\207" [auto-complete (ac-source-gtags)] 2 nil nil])
(byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\207" [custom-declare-face ac-yasnippet-candidate-face ((t (:inherit ac-candidate-face :background "sandybrown" :foreground "black"))) "Face for yasnippet candidate." :group auto-complete ac-yasnippet-selection-face ((t (:inherit ac-selection-face :background "coral3"))) "Face for the yasnippet selected candidate."] 6)
(defalias 'ac-yasnippet-table-hash #[(table) "\301\302!\203\n\302!\207\301\303!\205\303!\207" [table fboundp yas/snippet-table-hash yas/table-hash] 2])
(defalias 'ac-yasnippet-table-parent #[(table) "\301\302!\203\n\302!\207\301\303!\205\303!\207" [table fboundp yas/snippet-table-parent yas/table-parent] 2])
(defalias 'ac-yasnippet-candidate-1 #[(table) "\305!\306!\307\310\311\"\210\312\f	\237\"\n\203 \313	\314\n!\"	+\207" [table candidates parent hashtab ac-prefix ac-yasnippet-table-hash ac-yasnippet-table-parent nil maphash #[(key value) "	B\211\207" [key candidates] 2] all-completions append ac-yasnippet-candidate-1] 4])
(defalias 'ac-yasnippet-candidates #[nil "\303\304!\203\f\305\304 \"\207\303\306!\203'\307\310\311\312\3131!\306	!0\202$\210\306 \"\"\207\303\314!\2033\314	!\2025\315 \211\205=\312\n!)\207" [ac-prefix major-mode table fboundp yas-active-keys all-completions yas/get-snippet-tables apply append mapcar ac-yasnippet-candidate-1 (wrong-number-of-arguments) yas/snippet-table yas/current-snippet-table] 7])
(byte-code "\301\302\207" [ac-source-yasnippet ((depends yasnippet) (candidates . ac-yasnippet-candidates) (action . yas/expand) (candidate-face . ac-yasnippet-candidate-face) (selection-face . ac-yasnippet-selection-face) (symbol . "a")) nil] 1)
(defalias 'ac-complete-yasnippet #[nil "\300\301!\207" [auto-complete (ac-source-yasnippet)] 2 nil nil])
(defalias 'ac-semantic-candidates #[(prefix) "\301\302\303\304\3051\306\307 !\206\310!0\202\210\311\"\"\207" [prefix delete "" mapcar #[(elem) "\301!\302!B\207" [elem semantic-tag-name semantic-tag-clone] 3] (error) semantic-analyze-possible-completions semantic-analyze-current-context senator-find-tag-for-completion nil] 6])
(defalias 'ac-semantic-doc #[(symbol) "\304\305\306#\307!	\n\203\310\nQ+\207" [symbol proto doc res semantic-format-tag-summarize-with-file nil t semantic-documentation-for-tag "\n\n"] 4])
(defalias 'ac-semantic-action #[nil "\304\300!\205.\205.\305\306\307 \310\"!@\311	!\312\n\313=\205-\314	!\315\316\317\320\321#\322Q!+\207" [yas-minor-mode tag class args boundp last eieio-oref semantic-analyze-current-context prefix semantic-tag-class nil function semantic-tag-function-arguments yas-expand-snippet "(" mapconcat #[(arg) "\303\304\"\305\304\"\306	\307\230\203\n\202\n\310	Q\311Q*\207" [arg arg-name arg-type semantic-format-tag-type nil semantic-format-tag-name "${" "" " " "}"] 4] ", " ")$0"] 6])
(byte-code "\301\302\207" [ac-source-semantic ((available or (require 'semantic-ia nil t) (require 'semantic/ia nil t)) (candidates ac-semantic-candidates ac-prefix) (document . ac-semantic-doc) (action . ac-semantic-action) (prefix . cc-member) (requires . 0) (symbol . "m")) nil] 1)
(defalias 'ac-complete-semantic #[nil "\300\301!\207" [auto-complete (ac-source-semantic)] 2 nil nil])
(byte-code "\301\302\207" [ac-source-semantic-raw ((available or (require 'semantic-ia nil t) (require 'semantic/ia nil t)) (candidates ac-semantic-candidates ac-prefix) (document . ac-semantic-doc) (action . ac-semantic-action) (symbol . "s")) nil] 1)
(defalias 'ac-complete-semantic-raw #[nil "\300\301!\207" [auto-complete (ac-source-semantic-raw)] 2 nil nil])
(defalias 'ac-eclim-candidates #[nil "\303 \304\211:\203@\211A@\nBA\211\202\n\237+\207" [#1=#:--cl-var-- c #2=#:--cl-var-- eclim/java-complete nil] 3])
(byte-code "\301\302\207" [ac-source-eclim ((candidates . ac-eclim-candidates) (prefix . c-dot) (requires . 0) (symbol . "f")) nil] 1)
(defalias 'ac-complete-eclim #[nil "\300\301!\207" [auto-complete (ac-source-eclim)] 2 nil nil])
#@53 A list of CSS properties and their possible values.
(defconst ac-css-property-alist '(("azimuth" angle "left-side" "far-left" "left" "center-left" "center" "center-right" "right" "far-right" "right-side" "behind" "leftwards" "rightwards") ("background" background-color background-image background-repeat background-attachment background-position) ("background-attachment" "scroll" "fixed") ("background-color" color "transparent") ("background-image" uri "none") ("background-position" percentage length "left" "center" "right" percentage length "top" "center" "bottom" "left" "center" "right" "top" "center" "bottom") ("background-repeat" "repeat" "repeat-x" "repeat-y" "no-repeat") ("border" border-width border-style border-color) ("border-bottom" border) ("border-bottom-color" border-color) ("border-bottom-style" border-style) ("border-bottom-width" border-width) ("border-collapse" "collapse" "separate") ("border-color" color "transparent") ("border-left" border) ("border-left-color" border-color) ("border-left-style" border-style) ("border-left-width" border-width) ("border-right" border) ("border-right-color" border-color) ("border-right-style" border-style) ("border-right-width" border-width) ("border-spacing" length length) ("border-style" border-style) ("border-top" border) ("border-top-color" border-color) ("border-top-style" border-style) ("border-top-width" border-width) ("border-width" border-width) ("bottom" length percentage "auto") ("caption-side" "top" "bottom") ("clear" "none" "left" "right" "both") ("clip" shape "auto") ("color" color) ("content" "normal" "none" string uri counter "attr()" "open-quote" "close-quote" "no-open-quote" "no-close-quote") ("counter-increment" identifier integer "none") ("counter-reset" identifier integer "none") ("cue" cue-before cue-after) ("cue-after" uri "none") ("cue-before" uri "none") ("cursor" uri "*" "auto" "crosshair" "default" "pointer" "move" "e-resize" "ne-resize" "nw-resize" "n-resize" "se-resize" "sw-resize" "s-resize" "w-resize" "text" "wait" "help" "progress") ("direction" "ltr" "rtl") ("display" "inline" "block" "list-item" "run-in" "inline-block" "table" "inline-table" "table-row-group" "table-header-group" "table-footer-group" "table-row" "table-column-group" "table-column" "table-cell" "table-caption" "none") ("elevation" angle "below" "level" "above" "higher" "lower") ("empty-cells" "show" "hide") ("float" "left" "right" "none") ("font" font-style font-variant font-weight font-size "/" line-height font-family "caption" "icon" "menu" "message-box" "small-caption" "status-bar") ("font-family" family-name generic-family) ("font-size" absolute-size relative-size length percentage) ("font-style" "normal" "italic" "oblique") ("font-variant" "normal" "small-caps") ("font-weight" "normal" "bold" "bolder" "lighter" "100" "200" "300" "400" "500" "600" "700" "800" "900") ("height" length percentage "auto") ("left" length percentage "auto") ("letter-spacing" "normal" length) ("line-height" "normal" number length percentage) ("list-style" list-style-type list-style-position list-style-image) ("list-style-image" uri "none") ("list-style-position" "inside" "outside") ("list-style-type" "disc" "circle" "square" "decimal" "decimal-leading-zero" "lower-roman" "upper-roman" "lower-greek" "lower-latin" "upper-latin" "armenian" "georgian" "lower-alpha" "upper-alpha" "none") ("margin" margin-width) ("margin-bottom" margin-width) ("margin-left" margin-width) ("margin-right" margin-width) ("margin-top" margin-width) ("max-height" length percentage "none") ("max-width" length percentage "none") ("min-height" length percentage) ("min-width" length percentage) ("orphans" integer) ("outline" outline-color outline-style outline-width) ("outline-color" color "invert") ("outline-style" border-style) ("outline-width" border-width) ("overflow" "visible" "hidden" "scroll" "auto") ("padding" padding-width) ("padding-bottom" padding-width) ("padding-left" padding-width) ("padding-right" padding-width) ("padding-top" padding-width) ("page-break-after" "auto" "always" "avoid" "left" "right") ("page-break-before" "auto" "always" "avoid" "left" "right"
#@58 A list of CSS property value classes and their contents.
(defconst ac-css-value-classes '((absolute-size "xx-small" "x-small" "small" "medium" "large" "x-large" "xx-large") (border-style "none" "hidden" "dotted" "dashed" "solid" "double" "groove" "ridge" "inset" "outset") (color "aqua" "black" "blue" "fuchsia" "gray" "green" "lime" "maroon" "navy" "olive" "orange" "purple" "red" "silver" "teal" "white" "yellow" "rgb") (counter "counter") (family-name "Courier" "Helvetica" "Times") (generic-family "serif" "sans-serif" "cursive" "fantasy" "monospace") (generic-voice "male" "female" "child") (margin-width "auto") (relative-size "larger" "smaller") (shape "rect") (uri "url")) (#$ . 11833))
#@57 Identifiers for CSS pseudo-elements and pseudo-classes.
(defconst ac-css-pseudo-classes '("active" "after" "before" "first" "first-child" "first-letter" "first-line" "focus" "hover" "lang" "left" "link" "right" "visited") (#$ . 12534))
#@27 Current editing property.
(defvar ac-css-property nil (#$ . 12776))
(defalias 'ac-css-prefix #[nil "\212\301\302\303\304#)\205\305\306!\307 \206`\207" [ac-css-property re-search-backward "\\_<\\(.+?\\)\\_>\\s *:[^;]*\\=" nil t match-string 1 ac-prefix-symbol] 4])
(defalias 'ac-css-property-candidates #[nil "\306	\"\211\203K\307\211\307\n\211A\242\211\203E\f9\203>\f>\204\fB\310\n\306\f\n\"\2068\306\311\f!	\"\"\211\202\f
B\202
\237+\202M)\207" [ac-css-property ac-css-property-alist list seen value #1=#:--cl-var-- assoc-default nil append symbol-name ac-css-value-classes ac-css-pseudo-classes] 6])
(byte-code "\301\302\207" [ac-source-css-property ((candidates . ac-css-property-candidates) (prefix . ac-css-prefix) (requires . 0)) nil] 1)
(defalias 'ac-complete-css-property #[nil "\300\301!\207" [auto-complete (ac-source-css-property)] 2 nil nil])
(byte-code "\301\302\207" [ac-source-slime ((depends slime) (candidates car (slime-simple-completions ac-prefix)) (symbol . "s") (cache)) nil] 1)
(defalias 'ac-complete-slime #[nil "\300\301!\207" [auto-complete (ac-source-slime)] 2 nil nil])
(byte-code "\301\302\207" [ac-source-ghc-mod ((depends ghc) (candidates ghc-select-completion-symbol) (symbol . "s") (cache)) nil] 1)
(defalias 'ac-complete-ghc-mod #[nil "\300\301!\207" [auto-complete (ac-source-ghc-mod)] 2 nil nil])
(defvar ac-ropemacs-loaded nil)
(defalias 'ac-ropemacs-require #[nil "?\205\302\303\304\"\210\305\301!\203\306\306\211\207" [ac-ropemacs-loaded ropemacs-enable-autoimport pymacs-load "ropemacs" "rope-" boundp t] 3])
(defalias 'ac-ropemacs-setup #[nil "\301 \210\302\211\207" [ac-omni-completion-sources ac-ropemacs-require (("\\." ac-source-ropemacs))] 2])
(defalias 'ac-ropemacs-initialize #[nil "\300\301\302\"\210\300\303\302\"\210\300\304\302\305\306$\210\300\307\302\305\306$\210\300\310\302\305\306$\210\311\312\313\"\210\306\207" [autoload pymacs-apply "pymacs" pymacs-call pymacs-eval nil t pymacs-exec pymacs-load add-hook python-mode-hook ac-ropemacs-setup] 5])
(defvar ac-ropemacs-completions-cache nil)
(defvar ac-source-ropemacs '((init lambda nil (setq ac-ropemacs-completions-cache (mapcar (lambda (completion) (concat ac-prefix completion)) (ignore-errors (rope-completions))))) (candidates . ac-ropemacs-completions-cache)))
(defvar ac-source-rcodetools '((init lambda nil (require 'rcodetools) (condition-case x (save-excursion (rct-exec-and-eval rct-complete-command-name "--completion-emacs-icicles")) (error) (setq rct-method-completion-table nil))) (candidates lambda nil (all-completions ac-prefix (mapcar (lambda (completion) (replace-regexp-in-string "	.*$" "" (car completion))) rct-method-completion-table)))))
(defalias 'ac-common-setup #[nil "\300\207" [nil] 1])
(defalias 'ac-emacs-lisp-mode-setup #[nil "\301\302\"\211\207" [ac-sources append (ac-source-features ac-source-functions ac-source-yasnippet ac-source-variables ac-source-symbols)] 3])
(defalias 'ac-cc-mode-setup #[nil "\301\302\"\211\207" [ac-sources append (ac-source-yasnippet ac-source-gtags)] 3])
(defalias 'ac-ruby-mode-setup #[nil "\300\207" [nil] 1])
(defalias 'ac-css-mode-setup #[nil "\301\302\"\211\207" [ac-sources append (ac-source-css-property)] 3])
(defalias 'ac-config-default #[nil "\300\301\302\"\210\303\304\305\"\210\303\306\307\"\210\303\310\311\"\210\303\312\313\"\210\303\314\315\"\210\316\317!\207" [set-default ac-sources (ac-source-abbrev ac-source-dictionary ac-source-words-in-same-mode-buffers) add-hook emacs-lisp-mode-hook ac-emacs-lisp-mode-setup c-mode-common-hook ac-cc-mode-setup ruby-mode-hook ac-ruby-mode-setup css-mode-hook ac-css-mode-setup auto-complete-mode-hook ac-common-setup global-auto-complete-mode t] 3])
(provide 'auto-complete-config)