emacsd/elpa/company-20191127.16/company-capf.elc

;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!\207" [require company cl-lib] 2)
(defvar company--capf-cache nil)
#@410 Value last returned by `company-capf' when called with `candidates'.
For most properties/actions, this is just what we need: the exact values
that accompanied the completion table that's currently is use.

`company-capf', however, could be called at some different positions during
a completion session (most importantly, by `company-sort-by-occurrence'),
so we can't just use the preceding variable instead.
(defvar company-capf--current-completion-data nil (#$ . 510))
(make-variable-buffer-local 'company-capf--current-completion-data)
(defalias 'company--capf-data #[0 "p
@\232\203%`
A\211\262@\232\203%\301 
A\211\262@\232\203%\211A@\2021\302 p`\301 F\211\262
\207" [company--capf-cache buffer-chars-modified-tick company--capf-data-real] 6])
(defalias 'company--capf-data-real #[0 "\301\302\303\300!\"\303\300!\304\305\306\307\310!\311\"\312$\216\313\300\"\210\314 \315\300\316\317#\211A:\2051\320
A@!\2051\211\262
*\207" [completion-at-point-functions remove tags-completion-at-point-function default-value make-byte-code 0 "\301\302\300\"\207" vconcat vector [set-default completion-at-point-functions] 3 set-default company--capf-workaround run-hook-wrapped completion--capf-wrapper optimist integer-or-marker-p] 8])
(defalias 'company--capf-workaround #[0 "<\203\301>\203\302 \203\207\303\301\"\207" [completion-at-point-functions python-completion-complete-at-point python-shell-get-process remq] 3])
#@13 

(fn DATA)
(defalias 'company-capf--save-current-data #[257 "\211\301\302\303\304\305$\207" [company-capf--current-completion-data add-hook company-after-completion-hook company-capf--clear-current-data nil t] 6 (#$ . 1952)])
#@16 

(fn IGNORED)
(defalias 'company-capf--clear-current-data #[257 "\301\211\207" [company-capf--current-completion-data nil] 3 (#$ . 2186)])
(defvar company-capf--sorted nil nil)
(make-variable-buffer-local 'company-capf--sorted)
#@102 `company-mode' backend using `completion-at-point-functions'.

(fn COMMAND &optional ARG &rest ARGS)
(defalias 'company-capf #[641 "\302=\203\n\303\304!\207\305=\203<\306 \211\205;\307\310\233\311\"\312A@`\"\3138`V\203.\314\2029
\2038\211B\2029\211\266\202\207\315=\203F\316!\207\317=\203N\207\320=\203\327\307\310	\233\321\"\211\203d\211!\202\326\322\323\322\211\211\211G
W\203\322\324W\203}\324\202\204\325#\262\326\327\f#\206\227\326\330\f#\262<\203\242\202\244C\262\331>\262\204\272\203\272\262\202m\203m\204mBB\262\322\262\202m
\237\266\207\207\332=\203\337\333\207\334=\203\347\333\207\335=\203\373\307\310	\233\336\"\211\205\372\211!\207\337=\203
\307\310	\233\340\"\211\205
\211!\207\341=\203#
\307\310	\233\342\"\211\205\"
\211!\207\343=\2037
\307\310	\233\344\"\211\2056
\211!\207\345=\203E
\307\310\306 \233\346\"\207\347=\204Q
\350=\204S
\322\207\351!\207" [company-capf--sorted company-capf--current-completion-data interactive company-begin-backend company-capf prefix company--capf-data plist-get 4 :company-prefix-length buffer-substring-no-properties 2 stop candidates company-capf--candidates sorted match :company-match nil -1 0 next-property-change get-text-property face font-lock-face completions-common-part duplicates t no-cache meta :company-docsig doc-buffer :company-doc-buffer location :company-location annotation :annotation-function require-match :company-require-match init post-completion company--capf-post-completion] 15 (#$ . 2423) (byte-code "\300C\207" [interactive] 1)])
#@14 

(fn INPUT)
(defalias 'company-capf--candidates #[257 "\301 \302
!\210\211\205s\303
8\304\305\233\306\"\307A@\3108{#\311G%\312\236A\313!\211A\247\2056\211A\211\203>
\314\241\210\315!\203K!\262\211\206P\316\316U\204p\316O\317\320\321\322\323\324!\325\"\303\326%\"\262
\202q\266\207\207" [company-capf--sorted company--capf-data company-capf--save-current-data 3 plist-get 4 :predicate completion-metadata 2 completion-all-completions display-sort-function last nil functionp 0 mapcar make-byte-code 257 "\300
P\207" vconcat vector [] "\n\n(fn CANDIDATE)"] 17 (#$ . 4033)])
#@12 

(fn ARG)
(defalias 'company--capf-post-completion #[257 "\301\302\233\303\"\3048\301\302\233\305\"\205'\306#\307=\203%\310\202&\311\"\207" [company-capf--current-completion-data plist-get 4 :exit-function 3 :predicate try-completion t finished sole] 11 (#$ . 4646)])
(provide 'company-capf)