| 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 | (defvar company--capf-cache nil) | |
| 17 | (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]) | |
| 18 | (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 \320A@!\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]) | |
| 19 | (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]) | |
| 20 | #@102 `company-mode' backend using `completion-at-point-functions'. | |
| 21 | ||
| 22 | (fn COMMAND &optional ARG &rest ARGS) | |
| 23 | (defalias 'company-capf #[641 "\301=\203\n \302\303!\207\304=\203< \305 \211\205; \306\307\233\310\"\311A@`\"\3128`V\203. \313\2029 \2038 \211B\2029 \211\266\202\207\314=\203\255 \305 \211\205\254 \3158\306\307\233\316\"\317A@\3128{#\320\236A\321\nG$\322!\211A\247\205t \211A\211\203| \323\241\210\203\205 !\262\211\206\212 \324\324U\204\251 \324O\325\326\327\330\331\332!\333\"\315\334%\"\262\202\252 \266\207\207\335=\203\322 \305 \211\205\321 \317A@\3128{\3158\306\307\233\316\"#\320\236A\262\207\336=\203\\\306\307\305 \233\337\"\211\203\351 \211!\202[\323\340\323\211\211\211GW\203W\324W\203\324\202 \341 #\262\342\343\f#\206 \342\344\f#\262<\203'\202)C\262\345>\262\204?\203?\262\202\362 \203\362 \204\362 BB\262\323\262\202\362 \237\266\207\207\346=\203d\347\207\350=\203l\347\207\351=\203\201\306\307\305 \233\352\"\211\205\200\211!\207\353=\203\226\306\307\305 \233\354\"\211\205\225\211!\207\355=\203\253\306\307\305 \233\356\"\211\205\252\211!\207\357=\203\313\212\203\271b\210\306\307\305 \233\360\"\211\205\307\211!\262)\207\361=\203\331\306\307\305 \233\362\"\207\363=\204\345\364=\204\347\323\207\365!\207" [company-point interactive company-begin-backend company-capf prefix company--capf-data plist-get 4 :company-prefix-length buffer-substring-no-properties 2 stop candidates 3 :predicate completion-metadata display-sort-function completion-all-completions last nil 0 mapcar make-byte-code 257 "\300P\207" vconcat vector [] "\n\n(fn CANDIDATE)" sorted match :company-match -1 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] 19 (#$ . 1407) (byte-code "\300C\207" [interactive] 1)]) | |
| 24 | #@12 | |
| 25 | ||
| 26 | (fn ARG) | |
| 27 | (defalias 'company--capf-post-completion #[257 "\300 \301\302\233\303\"\3048\301\302\233\305\"\205( \306#\307=\203& \310\202' \311\"\207" [company--capf-data plist-get 4 :exit-function 3 :predicate try-completion t finished sole] 11 (#$ . 3496)]) | |
| 28 | (provide 'company-capf) | |
