;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (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 (#$ . 189)) (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@\207\302 p`\301 F\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\"\216\306\300\"\210\307 \310\300\311\312#\211A:\205*\313A@!\205*\211\262*\207" [completion-at-point-functions remove tags-completion-at-point-function default-value make-closure #[0 "\301\302\300\"\207" [V0 set-default completion-at-point-functions] 3] set-default company--capf-workaround run-hook-wrapped completion--capf-wrapper optimist integer-or-marker-p] 6]) (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 (#$ . 1587)]) #@16 (fn IGNORED) (defalias 'company-capf--clear-current-data #[257 "\301\211\207" [company-capf--current-completion-data nil] 3 (#$ . 1821)]) (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\267\202\303\304!\207\305 \211\2053\306\307\233\310\"\311A@`\"\3128`V\203(\266\313\207\2030\211B\207\211\266\202\207\314!\207\207\306\307 \233\315\"\211\203H\211!\207\316\317\316\211\211\211GW\203\266\320W\203a\320\202h\321 #\262\322\323\f#\206{\322\324\f#\262<\203\206\202\210C\262\325>\262\204\236\203\236\262\202Q\203Q\204QBB\262\316\262\202Q\237\207\326\207\326\207\306\307 \233\327\"\211\205\312\211!\207\306\307 \233\330\"\211\205\330\211!\207\306\307 \233\331\"\211\205\346\211!\207\306\307 \233\332\"\211\205\364\211!\207\306\307\305 \233\333\"\207\316\207\334!\207\316\207" [company-capf--sorted company-capf--current-completion-data #s(hash-table size 14 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (interactive 6 prefix 10 candidates 52 sorted 56 match 58 duplicates 185 no-cache 187 meta 189 doc-buffer 203 location 217 annotation 231 require-match 245 init 253 post-completion 255)) company-begin-backend company-capf company--capf-data plist-get 4 :company-prefix-length buffer-substring-no-properties 2 stop company-capf--candidates :company-match nil -1 0 next-property-change get-text-property face font-lock-face completions-common-part t :company-docsig :company-doc-buffer :company-location :annotation-function :company-require-match company--capf-post-completion] 15 (#$ . 2058) (byte-code "\300C\207" [interactive] 1)]) #@14 (fn INPUT) (defalias 'company-capf--candidates #[257 "\301 \302!\210\211\205f\3038\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\204c\316O\317\320\321\"\"\207\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-closure #[257 "\300P\207" [V0] 3 "\n\n(fn CANDIDATE)"]] 14 (#$ . 3639)]) #@12 (fn ARG) (defalias 'company--capf-post-completion #[257 "\301\302\233\303\"\3048\205%\305\306\307$@GU\203#\310\202$\311\"\207" [company-capf--current-completion-data plist-get 4 :exit-function 3 completion-boundaries nil "" sole finished] 11 (#$ . 4208)]) (provide 'company-capf)