| 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!\207" [require company cl-lib] 2) | |
| 16 | (defalias 'company-yasnippet--key-prefixes #[nil "\212`\306\211 \203Y @=\204 \fb\210 @\211;\203) \307 !\210 A\202E \310 !\203= \f!\311=\204E A\202E A\312\313 \"\210\314`\f\"\211 \n@\232\204U \nB)\202 \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]) | |
| 17 | (defalias 'company-yasnippet--candidates #[(prefix) "\306 \307 \310\311\310 :\2034 @\211G GY\203) \312 \n#\211?\211\202* \311\2034 A\211\202 \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]) | |
| 18 | (defalias 'company-yasnippet--completions-for-prefix #[(prefix key-prefix tables) "\301\302\"\207" [tables cl-mapcan #[(table) "\304! >\204 \305\306\307D\"\210\310H\311\211\203 \312\313 \"\210\n*\207" [table cl-struct-yas--table-tags res keyhash type-of signal wrong-type-argument yas--table 2 nil maphash #[(key value) ";\205 \303 \"\205 \304\305\n\"\207" [key key-prefix value string-prefix-p maphash #[(name template) "\306\307 \310\n\311 G\fGZ& B\211\207" [key name template key-prefix prefix res propertize yas-annotation yas-template yas-prefix-offset] 9]] 3]] 5]] 3]) | |
| 19 | #@767 `company-mode' backend for `yasnippet'. | |
| 20 | ||
| 21 | This backend should be used with care, because as long as there are | |
| 22 | snippets defined for the current major mode, this backend will always | |
| 23 | shadow backends that come after it. Recommended usages: | |
| 24 | ||
| 25 | * In a buffer-local value of `company-backends', grouped with a backend or | |
| 26 | several that provide actual text completions. | |
| 27 | ||
| 28 | (add-hook 'js-mode-hook | |
| 29 | (lambda () | |
| 30 | (set (make-local-variable 'company-backends) | |
| 31 | '((company-dabbrev-code company-yasnippet))))) | |
| 32 | ||
| 33 | * After keyword `:with', grouped with other backends. | |
| 34 | ||
| 35 | (push '(company-semantic :with company-yasnippet) company-backends) | |
| 36 | ||
| 37 | * Not in `company-backends', just bound to a key. | |
| 38 | ||
| 39 | (global-set-key (kbd "C-c y") 'company-yasnippet) | |
| 40 | ||
| 41 | (defalias 'company-yasnippet #[(command &optional arg &rest ignore) "\306\267\202g \307\310!\207\311\301!\205 \205h \312 \207\n?\205 \313\314\315\316 #P\207\317 !\207\320\207\314\315\321 #\314\315\322 # \323\324 ! >\204G \325\326\327 D\"\210 \330H\331` G\f#`\324 ! >\204a \325\326\327 D\"\210 \332H$*\207\333\207" [command yas-minor-mode company-tooltip-align-annotations arg prefix-offset template #s(hash-table size 6 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (interactive 6 prefix 10 annotation 23 candidates 36 no-cache 40 post-completion 42)) company-begin-backend company-yasnippet boundp company-grab-symbol " -> " get-text-property 0 yas-annotation company-yasnippet--candidates t 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 (#$ . 1834) (list 'interactive)]) | |
| 42 | (provide 'company-yasnippet) | |
