Files
emacsd/elpa/company-20191127.16/company-tempo.elc

25 lines
2.2 KiB
Plaintext
Raw Normal View History

;ELC
;;; Compiled
;;; in Emacs version 26.3
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\301%\210\311\312\306\313\314\315%\207" [require company cl-lib tempo custom-declare-group company-tempo nil "Tempo completion backend." :group custom-declare-variable company-tempo-expand "Whether to expand a tempo tag after completion." :type (choice (const :tag "Off" nil) (const :tag "On" t))] 6)
(defalias 'company-tempo-lookup #[(match) "\301\302 \"A\207" [match assoc tempo-build-collection] 3])
(put 'company-tempo-lookup 'byte-optimizer 'byte-compile-inline-expand)
#@49 Replace MATCH with the expanded tempo template.
(defalias 'company-tempo-insert #[(match) "\301!\210\302\224b\210\303\304!\210\305\306\307 \"A)!\207" [match search-backward 0 replace-match "" call-interactively assoc tempo-build-collection] 4 (#$ . 955)])
(defalias 'company-tempo-meta #[(match) "\303\304 \"A)\305\211\205\306\n\307\"\211\205\310 \311\307#@*\207" [match doc templ assoc tempo-build-collection nil documentation t split-string "\n"] 5])
(put 'company-tempo-meta 'byte-optimizer 'byte-compile-inline-expand)
#@46 `company-mode' completion backend for tempo.
(defalias 'company-tempo #[(command &optional arg &rest ignored) "\306\307\"\203 \310\311!\207\306\312\"\203\313 !@\206j\314\207\306\315\"\203(\316\n\317 \"\207\306\320\"\203R\n\211\321 \317 \"A)\322\211\205P\323 \324\"\211\205P\325\f\326\324#@+\207\306\327\"\203b\205j\330\n!\207\306\331\"\205j\324\207" [command tempo-match-finder arg match doc templ eql interactive company-begin-backend company-tempo prefix tempo-find-match-string "" candidates all-completions tempo-build-collection meta assoc nil documentation t split-string "\n" post-completion company-tempo-insert sorted company-tempo-expand] 5 (#$ . 1498) (list 'interactive)])
(provide 'company-tempo)