;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\301%\210\311\312\313\314\315\316%\210\311\317\320\321\315\322%\210\311\323\320\324\315\322\325\326&\207" [require company company-template cl-lib custom-declare-group company-semantic nil "Completion backend using Semantic." :group custom-declare-variable company-semantic-metadata-function 'company-semantic-summary-and-doc "The function turning a semantic tag into doc information." :type function company-semantic-begin-after-member-access t "When non-nil, automatic completion will start whenever the current\nsymbol is preceded by \".\", \"->\" or \"::\", ignoring\n`company-minimum-prefix-length'.\n\nIf `company-begin-commands' is a list, it should include `c-electric-lt-gt'\nand `c-electric-colon', for automatic completion right after \">\" and\n\":\"." boolean company-semantic-insert-arguments "When non-nil, insert function arguments as a template after completion." :package-version (company . "0.9.0")] 8) (defvar company-semantic-modes '(c-mode c++-mode jde-mode java-mode)) #@31 Tags for the current context. (defvar company-semantic--current-tags nil (#$ . 1151)) (make-variable-buffer-local 'company-semantic--current-tags) (defalias 'company-semantic-documentation-for-tag #[(tag) "\301!\205 \302!\207" [tag semantic-tag-buffer semantic-documentation-for-tag] 2]) (defalias 'company-semantic-doc-or-summary #[(tag) "\302!\206\303\304\305\306#\205\303\307\305\306#\205 \305\306#\207" [tag semantic-idle-summary-function company-semantic-documentation-for-tag require semantic-idle nil t semantic/idle] 4]) (defalias 'company-semantic-summary-and-doc #[(tag) "\304! \305\306#\211;\203\307\310 \"\203\311\312 \"\n \2052 G\nG\\\313\\\314 W\2031\315\2022\316 Q*\207" [tag semantic-idle-summary-function summary doc company-semantic-documentation-for-tag nil t string-match "\n*\\(.*\\)$" match-string 1 4 window-width " -- " "\n"] 6]) (defalias 'company-semantic-doc-buffer #[(tag) "\303!\211\205\304\n\305\306#\307 Q!)\207" [tag doc semantic-idle-summary-function company-semantic-documentation-for-tag company-doc-buffer nil t "\n"] 6]) (defalias 'company-semantic-completions #[(prefix) "\3041\305\306 \307\310\"\311 \n\"*0\207\210\305\207" [context completion-ignore-case company-semantic--current-tags prefix (error) nil semantic-analyze-current-context semantic-analyze-possible-completions no-unique all-completions] 3]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put company-semantic-completions speed -1 put byte-optimizer byte-compile-inline-expand] 5) (defalias 'company-semantic-completions-raw #[(prefix) "\304\305 !\304\211\203\" @\306\n!\307=\204\nB A\211\204\f*\310\311\312\313\"\"\207" [company-semantic--current-tags prefix tag --dolist-tail-- nil semantic-analyze-find-tags-by-prefix semantic-tag-class include delete "" mapcar semantic-tag-name] 6]) (defalias 'company-semantic-annotation #[(argument tags) " \236\211\205 \n\306\234\211\307=\205&\310\n\311\211#\312\313\f\"\211\205%\f \311O**\207" [argument tags tag kind prototype par-pos 1 function semantic-format-tag-prototype nil string-match "("] 5]) (defalias 'company-semantic--prefix #[nil "\203 \301\302\303\"\207\304 \207" [company-semantic-begin-after-member-access company-grab-symbol-cons "\\.\\|->\\|::" 2 company-grab-symbol] 3]) #@57 `company-mode' completion backend using CEDET Semantic. (defalias 'company-semantic #[(command &optional arg &rest ignored) "\306\267\202\260\307\310!\207\311\312!\205\261\313 \205\261 \n>\205\261\314 ?\205\261\315 \206'\316\207 \317\232\203;\320\321`\322Z\"\204;\323 !\207 \3241W\325\326 \"\327 \330\"#\331\f#\"*0\202Y\210\325)\207$\332 #\"!\207\333 #\"\207\334\332 #\"!\207 \317\232\207\335\207\332 #\"%\336\337%!!\205\221\337%!\340%!B)\207\333 #\"&'\205\256&\205\256&c\210\341 &P!)\207\325\207" [command major-mode company-semantic-modes arg prefix context #s(hash-table size 10 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (interactive 6 prefix 10 candidates 40 meta 91 annotation 100 doc-buffer 106 no-cache 114 duplicates 118 location 120 post-completion 147)) company-begin-backend company-semantic featurep semantic semantic-active-p company-in-string-or-comment company-semantic--prefix stop "" looking-back "->\\|\\.\\|::" 2 company-semantic-completions-raw (error) nil semantic-analyze-current-context semantic-analyze-possible-completions no-unique all-completions assoc company-semantic-annotation company-semantic-doc-buffer t buffer-live-p semantic-tag-buffer semantic-tag-start company-template-c-like-templatify completion-ignore-case company-semantic--current-tags company-semantic-metadata-function tag anno company-semantic-insert-arguments] 4 (#$ . 3467) (list 'interactive)]) (provide 'company-semantic)