Se agregan las configuraciones del tarro

[config.git] / djavu-asus / elpa / company-20230926.32 / company-capf.elc

;ELC\1c\0\0\0
;;; Compiled
;;; in Emacs version 28.2
;;; 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.\1f
(defvar company-capf--current-completion-data nil (#$ . 186))
(make-variable-buffer-local 'company-capf--current-completion-data)
(defalias 'company--capf-data #[0 "\bp\ 1@\232\203#\0`\ 1A\211\262\ 3@\232\203#\0\301 \ 1A\211\262\ 3@\232\203#\0\211A@\207\302 p`\301 \ 3F\10\207" [company--capf-cache buffer-chars-modified-tick company--capf-data-real] 6])
#@16 

(fn ELT LST)\1f
(defalias 'company--contains #[514 "\211@\211\205(\0\2119\203\17\0\ 2\ 1=\206(\0\300\ 3\ 3A\"\207\211<\205(\0\300\ 3\ 2\"\206(\0\300\ 3\ 3A\"\207" [company--contains] 6 (#$ . 938)])
(defalias 'company--capf-data-real #[0 "\302\303\b\"\203\10\0\304\305\306\301!\"\202\13\0\306\301!\306\301!\307\310\ 2\"\216\311\301\ 3\"\210\312 \19\313\301\314\315#\211A:\2057\0\316\ 1A@!\2057\0\211\262\ 1*\207" [company-backends completion-at-point-functions company--contains company-etags 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 company--capf-wrapper optimist integer-or-marker-p] 6])
#@18 

(fn FUN WHICH)\1f
(defalias 'company--capf-wrapper #[514 "\303\304\305\306\ 5\"\18\19\1a\3072\1c\0\3101\19\0\311\ 2\ 2\"0\202\e\0\210\3040+\207" [completion-in-region-function inhibit-read-only buffer-read-only t nil make-closure #[1028 "\301\302\300\ 6\ 6\ 6\ 6\ 6\ 6\303\ 6\a\257\ 6\"\207" [V0 throw company--illegal-completion-in-region :predicate] 12 "\n\n(fn BEG END COLL PRED)"] company--illegal-completion-in-region (buffer-read-only) completion--capf-wrapper] 7 (#$ . 1646)])
(defalias 'company--capf-workaround #[0 "\b<\203\10\0\301\b>\203\10\0\302 \203\12\0\b\207\303\301\b\"\207" [completion-at-point-functions python-completion-complete-at-point python-shell-get-process remq] 3])
#@13 

(fn DATA)\1f
(defalias 'company-capf--save-current-data #[257 "\211\10\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 (#$ . 2294)])
#@16 

(fn IGNORED)\1f
(defalias 'company-capf--clear-current-data #[257 "\301\211\10\207" [company-capf--current-completion-data nil] 3 (#$ . 2528)])
(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)\1f
(defalias 'company-capf #[641 "\ 2\302\267\202\15\ 1\303\304!\207\305 \211\2053\0\306\307\ 2\233\310\"\311\ 2A@`\"\312\ 38`V\203(\0\266\ 2\313\207\ 1\2030\0\211\ 2B\207\211\266\202\207\314\ 2!\207\b\207\306\307	\233\315\"\211\203H\0\211\ 3!\207\316\317\316\211\211\211\ 6\bG\ 5\ 1W\203\266\0\ 5\320W\203a\0\320\202h\0\321\ 6\ 6\ 6\v\ 3#\262\ 6\322\ 6\ 6\323\ 6\f#\206{\0\322\ 6\ 6\324\ 6\f#\262\ 5\ 4<\203\206\0\ 4\202\210\0\ 4C\262\ 4\325\ 4>\262\ 3\ 6\ 6\204\236\0\ 2\203\236\0\ 5\262\a\202Q\0\ 6\ 6\203Q\0\ 2\204Q\0\ 6\ 6\ 6\ 6B\ 2B\262\ 2\316\262\a\202Q\0\ 1\237\207\326\207\326\207\306\307	\233\327\"\211\205\312\0\211\ 3!\207\306\307	\233\330\"\211\205\330\0\211\ 3!\207\306\307	\233\331\"\211\205\346\0\211\ 3!\207\332\ 2!\207\306\307	\233\333\"\211\205\370\0\211\ 3!\207\306\307	\233\334\"\211\205\ 6\ 1\211\ 3!\207\306\307\305 \233\335\"\207\316\207\336\ 2!\207\316\207" [company-capf--sorted company-capf--current-completion-data #s(hash-table size 16 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 kind 235 deprecated 249 require-match 263 init 271 post-completion 273)) 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 company-capf--annotation :company-kind :company-deprecated :company-require-match company--capf-post-completion] 15 (#$ . 2765) (byte-code "\300C\207" [interactive] 1)])
#@12 

(fn ARG)\1f
(defalias 'company-capf--annotation #[257 "\302\303\b\233\304\"\206\1e\0\305\306\bA@\307\b8{\310\b8\302\303\b\233\311\"#\236A\211\205%\0\211\ 2!	\2055\0\211\312\232\2055\0\302\303\b\233\313\"?\205:\0\211\207" [company-capf--current-completion-data company-format-margin-function plist-get 4 :annotation-function annotation-function completion-metadata 2 3 :predicate " <f>" :company-kind] 8 (#$ . 4457)])
#@14 

(fn INPUT)\1f
(defalias 'company-capf--candidates #[257 "\301 \302\ 1!\210\211\205f\0\303\ 18\304\305\ 3\233\306\"\307\ 3A@\310\ 58{\ 3\ 3#\311\ 5\ 4\ 4\ 6\bG\ 5%\312\ 2\236A\313\ 2!\211A\247\2056\0\211A\211\203>\0\ 1\314\241\210\315\ 3!\10\ 2\203K\0\ 2\ 4!\262\ 4\211\206P\0\316\316U\204c\0\ 6\b\316\ 2O\317\320\321\ 3\"\ 6\ 6\"\207\ 3\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 "\300\ 1P\207" [V0] 3 "\n\n(fn CANDIDATE)"]] 14 (#$ . 4864)])
#@12 

(fn ARG)\1f
(defalias 'company--capf-post-completion #[257 "\b\301\302\ 2\233\303\"\304\ 28\ 1\205%\0\ 1\ 4\305\ 6\ 6\ 4\306\307$@\ 6\ 6GU\203#\0\310\202$\0\311\"\207" [company-capf--current-completion-data plist-get 4 :exit-function 3 completion-boundaries nil "" sole finished] 11 (#$ . 5433)])
(provide 'company-capf)