[config.git] / djavu-asus / elpa / company-20230926.32 / company-semantic.elc

;ELC\1c\0\0\0
;;; Compiled
;;; in Emacs version 28.2
;;; 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&\a\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.\1f
(defvar company-semantic--current-tags nil (#$ . 1148))
(make-variable-buffer-local 'company-semantic--current-tags)
(defalias 'company-semantic-documentation-for-tag #[(tag) "\301\b!\205	\0\302\b!\207" [tag semantic-tag-buffer semantic-documentation-for-tag] 2])
(defalias 'company-semantic-doc-or-summary #[(tag) "\302\b!\206\e\0\303\304\305\306#\205\e\0\303\307\305\306#\205\e\0	\b\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\b!	\b\305\306#\1a\211\e;\203\e\0\307\310\v\"\203\e\0\311\312\v\"\13\n\v\2052\0\vG\nG\\\313\\\314 W\2031\0\315\2022\0\316\vQ*\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\b!\211\19\205\12\0\304\n\b\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\15\0\305\306 \18\19\307\b\310\"\12\311\v\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\10\305	!\304\1a\211\e\203\"\0\v@\12\306\n!\307=\204\e\0\n\bB\10\vA\211\13\204\f\0*\310\311\312\313\b\"\"\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) "\b	\236\211\1a\205\v\0\n\306\234\211\e\307=\205&\0\310\n\311\211#\1c\312\313\f\"\211\1d\205%\0\f\r\311O**\207" [argument tags tag kind prototype par-pos 1 function semantic-format-tag-prototype nil string-match "("] 5])
(defalias 'company-semantic--prefix #[nil "\b\203	\0\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.\1f
(defalias 'company-semantic #[(command &optional arg &rest ignored) "\b\306\267\202\260\0\307\310!\207\311\312!\205\261\0\313 \205\261\0	\n>\205\261\0\314 ?\205\261\0\315 \206'\0\316\207\v\317\232\203;\0\320\321`\322Z\"\204;\0\323\v!\207\v\1c\3241W\0\325\326 \1d\1e\"\327\r\330\"\16#\331\f\ e#\"*0\202Y\0\210\325)\207\ e$\332\v\ e#\"!\207\333\v\ e#\"\207\334\332\v\ e#\"!\207\v\317\232\207\335\207\332\v\ e#\"\1e%\336\337\ e%!!\205\221\0\337\ e%!\340\ e%!B)\207\333\v\ e#\"\1e&\ e'\205\256\0\ e&\205\256\0\ e&c\210\341\v\ e&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 (#$ . 3464) (list 'interactive)])
(provide 'company-semantic)
Commit	Line	Data
53e6db90 DC	1	;ELC\1c\0\0\0
	2	;;; Compiled
	3	;;; in Emacs version 28.2
	4	;;; with all optimizations.
	5
	6
	7
	8	(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&\a\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)
	9	(defvar company-semantic-modes '(c-mode c++-mode jde-mode java-mode))
	10	#@31 Tags for the current context.\1f
	11	(defvar company-semantic--current-tags nil (#$ . 1148))
	12	(make-variable-buffer-local 'company-semantic--current-tags)
	13	(defalias 'company-semantic-documentation-for-tag #[(tag) "\301\b!\205 \0\302\b!\207" [tag semantic-tag-buffer semantic-documentation-for-tag] 2])
	14	(defalias 'company-semantic-doc-or-summary #[(tag) "\302\b!\206\e\0\303\304\305\306#\205\e\0\303\307\305\306#\205\e\0 \b\305\306#\207" [tag semantic-idle-summary-function company-semantic-documentation-for-tag require semantic-idle nil t semantic/idle] 4])
	15	(defalias 'company-semantic-summary-and-doc #[(tag) "\304\b! \b\305\306#\1a\211\e;\203\e\0\307\310\v\"\203\e\0\311\312\v\"\13\n\v\2052\0\vG\nG\\\313\\\314 W\2031\0\315\2022\0\316\vQ\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])
	16	(defalias 'company-semantic-doc-buffer #[(tag) "\303\b!\211\19\205\12\0\304\n\b\305\306#\307 Q!)\207" [tag doc semantic-idle-summary-function company-semantic-documentation-for-tag company-doc-buffer nil t "\n"] 6])
	17	(defalias 'company-semantic-completions #[(prefix) "\3041\15\0\305\306 \18\19\307\b\310\"\12\311\v\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])
	18	(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)
	19	(defalias 'company-semantic-completions-raw #[(prefix) "\304\10\305 !\304\1a\211\e\203\"\0\v@\12\306\n!\307=\204\e\0\n\bB\10\vA\211\13\204\f\0*\310\311\312\313\b\"\"\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])
	20	(defalias 'company-semantic-annotation #[(argument tags) "\b \236\211\1a\205\v\0\n\306\234\211\e\307=\205&\0\310\n\311\211#\1c\312\313\f\"\211\1d\205%\0\f\r\311O**\207" [argument tags tag kind prototype par-pos 1 function semantic-format-tag-prototype nil string-match "("] 5])
	21	(defalias 'company-semantic--prefix #[nil "\b\203 \0\301\302\303\"\207\304 \207" [company-semantic-begin-after-member-access company-grab-symbol-cons "\\.\\\|->\\\|::" 2 company-grab-symbol] 3])
	22	#@57 `company-mode' completion backend using CEDET Semantic.\1f
	23	(defalias 'company-semantic #[(command &optional arg &rest ignored) "\b\306\267\202\260\0\307\310!\207\311\312!\205\261\0\313 \205\261\0 \n>\205\261\0\314 ?\205\261\0\315 \206'\0\316\207\v\317\232\203;\0\320\321`\322Z\"\204;\0\323\v!\207\v\1c\3241W\0\325\326 \1d\1e\"\327\r\330\"\16#\331\f\ e#\"*0\202Y\0\210\325)\207\ e$\332\v\ e#\"!\207\333\v\ e#\"\207\334\332\v\ e#\"!\207\v\317\232\207\335\207\332\v\ e#\"\1e%\336\337\ e%!!\205\221\0\337\ e%!\340\ e%!B)\207\333\v\ e#\"\1e&\ e'\205\256\0\ e&\205\256\0\ e&c\210\341\v\ e&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 (#$ . 3464) (list 'interactive)])
	24	(provide 'company-semantic)