| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (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) | |
| 16 | (defvar company-semantic-modes '(c-mode c++-mode jde-mode java-mode)) | |
| 17 | #@31 Tags for the current context. | |
| 18 | (defvar company-semantic--current-tags nil (#$ . 1472)) | |
| 19 | (make-variable-buffer-local 'company-semantic--current-tags) | |
| 20 | (defalias 'company-semantic-documentation-for-tag #[(tag) "\301!\205 \302!\207" [tag semantic-tag-buffer semantic-documentation-for-tag] 2]) | |
| 21 | (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]) | |
| 22 | (defalias 'company-semantic-summary-and-doc #[(tag) "\304! \305\306#\211;\203 \307\310 \"\203 \311\312 \"\n \2052 \313 G\nG\314#\315 W\2031 \316\2022 \317 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]) | |
| 23 | (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]) | |
| 24 | (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]) | |
| 25 | (put 'company-semantic-completions 'byte-optimizer 'byte-compile-inline-expand) | |
| 26 | (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]) | |
| 27 | (defalias 'company-semantic-annotation #[(argument tags) " \236\211\205 \n\306\234\307 \310\"\205' \311\n\312\211# \313\314\f\"\211 \205& \f \312O**\207" [argument tags tag kind prototype par-pos 1 eql function semantic-format-tag-prototype nil string-match "("] 5]) | |
| 28 | (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]) | |
| 29 | #@57 `company-mode' completion backend using CEDET Semantic. | |
| 30 | (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 eql 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 (#$ . 3723) (list 'interactive)]) | |
| 31 | (provide 'company-semantic) | |
