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

;ELC\1c\0\0\0
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.


(byte-code "\300\301!\210\300\302!\207" [require company cl-lib] 2)
#@94 Function to format completion annotation.
It has to accept one argument: the snippet's name.\1f
(defvar company-yasnippet-annotation-fn #[(name) "\b?\205\ 6\0\302	P\207" [company-tooltip-align-annotations name " -> "] 2] (#$ . 152))
(defalias 'company-yasnippet--key-prefixes #[nil "\212`\b\306\211\19\1a\e\1c\v\203Y\0	\v@=\204\17\0\fb\210\v@\211\11;\203)\0\307	!\210\vA\13\202E\0\310	!\203=\0	\f!\311=\204E\0\vA\13\202E\0\vA\13\312\313	\"\210\314`\f\"\211\1d\n@\232\204U\0\r\nB\12)\202	\0\n-\207" [yas-key-syntaxes method prefixes methods original prefix nil skip-syntax-backward functionp again yas--warning "Invalid element `%s' in `yas-key-syntaxes'" buffer-substring-no-properties] 5])
(defalias 'company-yasnippet--candidates #[(prefix) "\306 \18\307 \19\310\1a\311\e\310\1c	:\2034\0	@\211\12G\rGY\203)\0\312\r\n\b#\211\14?\211\13\202*\0\311\2034\0	A\211\11\202\r\0\f-\207" [tables #1=#:--cl-var-- key-prefix #2=#:--cl-flag-- #3=#:--cl-var-- prefix yas--get-snippet-tables company-yasnippet--key-prefixes nil t company-yasnippet--completions-for-prefix] 5])
(defalias 'company-yasnippet--completions-for-prefix #[(prefix key-prefix tables) "\301\302\b\"\207" [tables cl-mapcan #[(table) "\305\b!	>\204\ f\0\306\307\310\bD\"\210\b\311H\312 \313\1a\e\211\1c\203!\0\314\315\f\"\210\n+\207" [table cl-struct-yas--table-tags res requirement keyhash type-of signal wrong-type-argument yas--table 2 yas--require-template-specific-condition-p nil maphash #[(key value) "\b;\205\10\0\303	\b\"\205\10\0\304\305\n\"\207" [key key-prefix value string-prefix-p maphash #[(name template) "\306\307\b!	>\204\10\0\310\311\312\bD\"\210\b\313H\n\"\205-\0\314\v\315\f\316\b\317\rG\ e\10GZ&\a\ e\11B\211\16\11\207" [template cl-struct-yas--template-tags requirement key name key-prefix yas--template-can-expand-p type-of signal wrong-type-argument yas--template 4 propertize yas-annotation yas-template yas-prefix-offset prefix res] 9]] 3]] 5]] 3])
(defalias 'company-yasnippet--doc #[(arg) "\306\307\310\b#	\305 \1a\e\1cr\311 q\210\n\1d\312\313!\210\314\315!\210\316\16\r\3171;\0\320\321\f!\ e\1f>\2042\0\322\323\324\fD\"\210\f\325H!0\210\202F\0\1e \326\327\330\ e !\")\210\314\331!\210\332\211\1e\19\1e!\v\333=\203^\0\334\211\13 \210\202a\0\v \210)\3351m\0\336 0\210\202n\0\210*p,\207" [arg major-mode file-name mode template buffer-file-name get-text-property 0 yas-template company-doc-buffer yas-minor-mode 1 make-local-variable yas-prompt-functions (yas-no-prompt) (error) yas-expand-snippet type-of signal wrong-type-argument yas--template 2 message "%s" error-message-string delay-mode-hooks t web-mode html-mode (error) font-lock-ensure cl-struct-yas--template-tags error inhibit-message] 6])
#@777 `company-mode' backend for `yasnippet'.

This backend should be used with care, because as long as there are
snippets defined for the current major mode, this backend will always
shadow backends that come after it.  Recommended usages:

* In a buffer-local value of `company-backends', grouped with a backend or
  several that provide actual text completions.

  (add-hook \='js-mode-hook
            (lambda ()
              (set (make-local-variable \='company-backends)
                   \='((company-dabbrev-code company-yasnippet)))))

* After keyword `:with', grouped with other backends.

  (push \='(company-semantic :with company-yasnippet) company-backends)

* Not in `company-backends', just bound to a key.

  (global-set-key (kbd "C-c y") \='company-yasnippet)
\1f
(defalias 'company-yasnippet #[(command &optional arg &rest ignore) "\b\306\267\202h\0\307\310!\207\311\301!\205\16\0	\205i\0\312 \207\n\313\314\315\v#!\207\316\v!\207\317\v!\207\320\207\321\207\313\314\322\v#\313\314\323\v#\1c\1d\324\325\r!\ e\1c>\204H\0\326\327\330\rD\"\210\r\331H`\vGZ\fZ`\325\r!\ e\1c>\204b\0\326\327\330\rD\"\210\r\332H$*\207\333\207" [command yas-minor-mode company-yasnippet-annotation-fn arg prefix-offset template #s(hash-table size 8 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (interactive 6 prefix 10 annotation 23 candidates 31 doc-buffer 35 no-cache 39 kind 41 post-completion 43)) company-begin-backend company-yasnippet boundp company-grab-symbol get-text-property 0 yas-annotation company-yasnippet--candidates company-yasnippet--doc t snippet yas-template yas-prefix-offset yas-expand-snippet type-of signal wrong-type-argument yas--template 2 5 nil cl-struct-yas--template-tags] 8 (#$ . 2696) (list 'interactive)])
(provide 'company-yasnippet)
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!\207" [require company cl-lib] 2)
	9	#@94 Function to format completion annotation.
	10	It has to accept one argument: the snippet's name.\1f
	11	(defvar company-yasnippet-annotation-fn #[(name) "\b?\205\ 6\0\302 P\207" [company-tooltip-align-annotations name " -> "] 2] (#$ . 152))
	12	(defalias 'company-yasnippet--key-prefixes #[nil "\212`\b\306\211\19\1a\e\1c\v\203Y\0 \v@=\204\17\0\fb\210\v@\211\11;\203)\0\307 !\210\vA\13\202E\0\310 !\203=\0 \f!\311=\204E\0\vA\13\202E\0\vA\13\312\313 \"\210\314`\f\"\211\1d\n@\232\204U\0\r\nB\12)\202 \0\n-\207" [yas-key-syntaxes method prefixes methods original prefix nil skip-syntax-backward functionp again yas--warning "Invalid element `%s' in `yas-key-syntaxes'" buffer-substring-no-properties] 5])
	13	(defalias 'company-yasnippet--candidates #[(prefix) "\306 \18\307 \19\310\1a\311\e\310\1c :\2034\0 @\211\12G\rGY\203)\0\312\r\n\b#\211\14?\211\13\202*\0\311\2034\0 A\211\11\202\r\0\f-\207" [tables #1=#:--cl-var-- key-prefix #2=#:--cl-flag-- #3=#:--cl-var-- prefix yas--get-snippet-tables company-yasnippet--key-prefixes nil t company-yasnippet--completions-for-prefix] 5])
	14	(defalias 'company-yasnippet--completions-for-prefix #[(prefix key-prefix tables) "\301\302\b\"\207" [tables cl-mapcan #[(table) "\305\b! >\204\ f\0\306\307\310\bD\"\210\b\311H\312 \313\1a\e\211\1c\203!\0\314\315\f\"\210\n+\207" [table cl-struct-yas--table-tags res requirement keyhash type-of signal wrong-type-argument yas--table 2 yas--require-template-specific-condition-p nil maphash #[(key value) "\b;\205\10\0\303 \b\"\205\10\0\304\305\n\"\207" [key key-prefix value string-prefix-p maphash #[(name template) "\306\307\b! >\204\10\0\310\311\312\bD\"\210\b\313H\n\"\205-\0\314\v\315\f\316\b\317\rG\ e\10GZ&\a\ e\11B\211\16\11\207" [template cl-struct-yas--template-tags requirement key name key-prefix yas--template-can-expand-p type-of signal wrong-type-argument yas--template 4 propertize yas-annotation yas-template yas-prefix-offset prefix res] 9]] 3]] 5]] 3])
	15	(defalias 'company-yasnippet--doc #[(arg) "\306\307\310\b# \305 \1a\e\1cr\311 q\210\n\1d\312\313!\210\314\315!\210\316\16\r\3171;\0\320\321\f!\ e\1f>\2042\0\322\323\324\fD\"\210\f\325H!0\210\202F\0\1e \326\327\330\ e !\")\210\314\331!\210\332\211\1e\19\1e!\v\333=\203^\0\334\211\13 \210\202a\0\v \210)\3351m\0\336 0\210\202n\0\210*p,\207" [arg major-mode file-name mode template buffer-file-name get-text-property 0 yas-template company-doc-buffer yas-minor-mode 1 make-local-variable yas-prompt-functions (yas-no-prompt) (error) yas-expand-snippet type-of signal wrong-type-argument yas--template 2 message "%s" error-message-string delay-mode-hooks t web-mode html-mode (error) font-lock-ensure cl-struct-yas--template-tags error inhibit-message] 6])
	16	#@777 `company-mode' backend for `yasnippet'.
	17
	18	This backend should be used with care, because as long as there are
	19	snippets defined for the current major mode, this backend will always
	20	shadow backends that come after it. Recommended usages:
	21
	22	* In a buffer-local value of `company-backends', grouped with a backend or
	23	several that provide actual text completions.
	24
	25	(add-hook \='js-mode-hook
	26	(lambda ()
	27	(set (make-local-variable \='company-backends)
	28	\='((company-dabbrev-code company-yasnippet)))))
	29
	30	* After keyword `:with', grouped with other backends.
	31
	32	(push \='(company-semantic :with company-yasnippet) company-backends)
	33
	34	* Not in `company-backends', just bound to a key.
	35
	36	(global-set-key (kbd "C-c y") \='company-yasnippet)
	37	\1f
	38	(defalias 'company-yasnippet #[(command &optional arg &rest ignore) "\b\306\267\202h\0\307\310!\207\311\301!\205\16\0 \205i\0\312 \207\n\313\314\315\v#!\207\316\v!\207\317\v!\207\320\207\321\207\313\314\322\v#\313\314\323\v#\1c\1d\324\325\r!\ e\1c>\204H\0\326\327\330\rD\"\210\r\331H`\vGZ\fZ`\325\r!\ e\1c>\204b\0\326\327\330\rD\"\210\r\332H$*\207\333\207" [command yas-minor-mode company-yasnippet-annotation-fn arg prefix-offset template #s(hash-table size 8 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (interactive 6 prefix 10 annotation 23 candidates 31 doc-buffer 35 no-cache 39 kind 41 post-completion 43)) company-begin-backend company-yasnippet boundp company-grab-symbol get-text-property 0 yas-annotation company-yasnippet--candidates company-yasnippet--doc t snippet yas-template yas-prefix-offset yas-expand-snippet type-of signal wrong-type-argument yas--template 2 5 nil cl-struct-yas--template-tags] 8 (#$ . 2696) (list 'interactive)])
	39	(provide 'company-yasnippet)