Book a Demo!
CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutPoliciesSign UpSign In
marvel
GitHub Repository: marvel/qnf
Path: blob/master/elisp/auto-complete-config.elc
987 views
;ELC
;;; Compiled by [email protected] on Fri Jun 18 21:38:07 2010
;;; from file /home/boggles/elisp/auto-complete-1.3/auto-complete-config.el
;;; in Emacs version 22.2.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`auto-complete-config.el' was compiled for Emacs 19.29 or later"))

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


(byte-code "\301\302!\210\303B\304\303!\204\305\303\306\"\210\307\303!\207" [current-load-list require auto-complete ac-imenu-index default-boundp set-default nil ac-clear-variable-every-10-minutes] 3)
(defalias 'ac-imenu-candidates #[nil "\306\307\301!\204\f\310\301!\210	\206\311\312\313\217\211\311\211\n\203{
\250\203*
W\203{\n\211A@\211:\203\f@\fA:\203L\314\315\"\210\202w;\203w\316\317\320!P\"\203w\316\321\"\203o\306\322\224OBT*\202\237,\207" [i ac-imenu-index stack result node ac-limit 0 local-variable-p make-local-variable nil (imenu--make-index-alist) ((error)) mapc #[(child) "	B\211\207" [child stack] 2] string-match "^" regexp-quote "^.*\\(()\\|=\\|<>\\)$" 1 cdr car ac-prefix] 5])
(byte-code "\301B\302\301!\204\303\301\304\"\210\301\207" [current-load-list ac-source-imenu default-boundp set-default ((depends imenu) (candidates . ac-imenu-candidates) (symbol . "s"))] 3)
(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 (:background "lightgray" :foreground "navy"))) "Face for gtags candidate" :group auto-complete ac-gtags-selection-face ((t (:background "navy" :foreground "white"))) "Face for the gtags selected candidate."] 6)
(defalias 'ac-gtags-candidate #[nil "\300\301\302\217\207" [nil (byte-code "\301\302\303\304\"!\305\"\207" [ac-prefix split-string shell-command-to-string format "global -ci %s" "\n"] 5) ((error))] 3])
(byte-code "\301B\302\301!\204\303\301\304\"\210\301\207" [current-load-list ac-source-gtags default-boundp set-default ((candidates . ac-gtags-candidate) (candidate-face . ac-gtags-candidate-face) (selection-face . ac-gtags-selection-face) (requires . 3) (symbol . "s"))] 3)
(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 (:background "sandybrown" :foreground "black"))) "Face for yasnippet candidate." :group auto-complete ac-yasnippet-selection-face ((t (:background "coral3" :foreground "white"))) "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 "\302\303!\203\304\305\306\307\303!\"\"\207\302\310!\203\310!\202\311 \211\205&\307	!)\207" [major-mode table fboundp yas/get-snippet-tables apply append mapcar ac-yasnippet-candidate-1 yas/snippet-table yas/current-snippet-table] 7])
(byte-code "\301B\302\301!\204\303\301\304\"\210\301\207" [current-load-list ac-source-yasnippet default-boundp set-default ((depends yasnippet) (candidates . ac-yasnippet-candidates) (action . yas/expand) (candidate-face . ac-yasnippet-candidate-face) (selection-face . ac-yasnippet-selection-face) (symbol . "a"))] 3)
(defalias 'ac-complete-yasnippet #[nil "\300\301!\207" [auto-complete (ac-source-yasnippet)] 2 nil nil])
(defalias 'ac-semantic-candidates #[(prefix) "\300\301\302\303\304\305\306\217\"\"\207" [delete "" mapcar semantic-tag-name nil (byte-code "\301\302 !\206\n\303!\207" [prefix semantic-analyze-possible-completions semantic-analyze-current-context senator-find-tag-for-completion] 2) ((error))] 7])
(byte-code "\301B\302\301!\204\303\301\304\"\210\301\207" [current-load-list ac-source-semantic default-boundp set-default ((available or (require 'semantic-ia nil t) (require 'semantic/ia nil t)) (candidates ac-semantic-candidates ac-prefix) (prefix . c-dot-ref) (requires . 0) (symbol . "m"))] 3)
(defalias 'ac-complete-semantic #[nil "\300\301!\207" [auto-complete (ac-source-semantic)] 2 nil nil])
(byte-code "\301B\302\301!\204\303\301\304\"\210\301\207" [current-load-list ac-source-semantic-raw default-boundp set-default ((available or (require 'semantic-ia nil t) (require 'semantic/ia nil t)) (candidates ac-semantic-candidates ac-prefix) (symbol . "s"))] 3)
(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 "\301B\302\301!\204\303\301\304\"\210\301\207" [current-load-list ac-source-eclim default-boundp set-default ((candidates . ac-eclim-candidates) (prefix . c-dot) (requires . 0) (symbol . "f"))] 3)
(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)) (#$ . 5856))
#@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")) (#$ . 11494))
#@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") (#$ . 12195))
#@27 Current editing property.
(defvar ac-css-property nil (#$ . 12437))
(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	\"\307\211\n\211A@\211\20349\203-\310\n\306
\"\206'\306\311!	\"\"\211\202\n\fB\202	\f\237+\206<\n\207" [ac-css-property ac-css-property-alist list value #1=#:--cl-var-- ac-css-value-classes assoc-default nil append symbol-name ac-css-pseudo-classes] 6])
(byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\306\"\210\306\207" [current-load-list ac-source-css-property default-boundp set-default ((candidates . ac-css-property-candidates) (prefix . ac-css-prefix) (requires . 0)) ac-ropemacs-loaded nil] 3)
(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])
(byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\306\"\210\307B\302\307!\204-\303\307\310\"\210\304\207" [current-load-list ac-ropemacs-completions-cache default-boundp set-default nil 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)) 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))))] 3)
(defalias 'ac-common-setup #[nil "\300\301\302\"\207" [add-to-list ac-sources ac-source-filename] 3])
(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\301!\210\302\301\303\"\207" [make-local-variable ac-ignores add-to-list "end"] 3])
(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)