]>
Commit | Line | Data |
---|---|---|
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) |