;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (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\314\n\203\211\250\2036W\203\211\n\211A\242\211:\203\204\f@\fA:\203X\315\316\"\210\202\203;\203\203\317\320\321!P\"\203\203\317\322\"\203{\306\323\224O BT*\313\202% \237-\207" [i ac-imenu-index stack result node #1=#:--cl-var-- 0 local-variable-p make-local-variable (error) imenu--make-index-alist nil t mapc #[(child) " B\211\207" [child stack] 2] string-match "^" regexp-quote "^.*\\(()\\|=\\|<>\\)$" 1 ac-limit 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 "\305\300!\205.\205.\306\307\310 \"!@\311\n!\312 \313=\205-\314\n!\315\316\317\320\f\321#\322Q!+\207" [yas-minor-mode prefix tag class args boundp last oref semantic-analyze-current-context 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") ("page-break-inside" "avoid" "auto") ("pause" time percentage) ("pause-after" time percentage) ("pause-before" time percentage) ("pitch" frequency "x-low" "low" "medium" "high" "x-high") ("pitch-range" number) ("play-during" uri "mix" "repeat" "auto" "none") ("position" "static" "relative" "absolute" "fixed") ("quotes" string string "none") ("richness" number) ("right" length percentage "auto") ("speak" "normal" "none" "spell-out") ("speak-header" "once" "always") ("speak-numeral" "digits" "continuous") ("speak-punctuation" "code" "none") ("speech-rate" number "x-slow" "slow" "medium" "fast" "x-fast" "faster" "slower") ("stress" number) ("table-layout" "auto" "fixed") ("text-align" "left" "right" "center" "justify") ("text-decoration" "none" "underline" "overline" "line-through" "blink") ("text-indent" length percentage) ("text-transform" "capitalize" "uppercase" "lowercase" "none") ("top" length percentage "auto") ("unicode-bidi" "normal" "embed" "bidi-override") ("vertical-align" "baseline" "sub" "super" "top" "text-top" "middle" "bottom" "text-bottom" percentage length) ("visibility" "visible" "hidden" "collapse") ("voice-family" specific-voice generic-voice "*" specific-voice generic-voice) ("volume" number percentage "silent" "x-soft" "soft" "medium" "loud" "x-loud") ("white-space" "normal" "pre" "nowrap" "pre-wrap" "pre-line") ("widows" integer) ("width" length percentage "auto") ("word-spacing" "normal" length) ("z-index" "auto" integer)) (#$ . 5909)) #@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")) (#$ . 11547)) #@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") (#$ . 12248)) #@27 Current editing property. (defvar ac-css-property nil (#$ . 12490)) (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\f B\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)