Reorganización de directorios

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

;ELC\1c\0\0\0
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\301%\210\310\311\312\313\314DD\315\316\317%\210\310\320\312\313\321DD\322\316\323\324\325&\a\210\310\326\312\313\327DD\330\316\331%\210\310\332\312\313\333DD\334\316\335%\210\310\336\312\313\337DD\340\316\341%\210\310\342\312\313\343DD\344\316\345%\210\310\346\312\313\347DD\350\316\351\324\352&\a\210\310\353\312\313\354DD\355\316\356\324\357&\a\207" [require company cl-lib custom-declare-group company-dabbrev nil "dabbrev-like completion backend." :group custom-declare-variable company-dabbrev-other-buffers funcall function #[0 "\300\207" [all] 1 #1=""] "Determines whether `company-dabbrev' should search other buffers.\nIf `all', search all other buffers, except the ignored ones.  If t, search\nbuffers with the same major mode.  See also `company-dabbrev-time-limit'." :type (choice (const :tag "Off" nil) (const :tag "Same major mode" t) (const :tag "All" all)) company-dabbrev-ignore-buffers #[0 "\300\207" ["\\`[ *]"] 1 #1#] "Regexp matching the names of buffers to ignore.\nOr a function that returns non-nil for such buffers." (choice (regexp :tag "Regexp") (function :tag "Predicate")) :package-version (company . "0.9.0") company-dabbrev-time-limit #[0 "\300\207" [0.1] 1 #1#] "Determines how many seconds `company-dabbrev' should look for matches." (choice (const :tag "Off" nil) (number :tag "Seconds")) company-dabbrev-char-regexp #[0 "\300\207" ["\\sw"] 1 #1#] "A regular expression matching the characters `company-dabbrev' looks for." regexp company-dabbrev-ignore-case #[0 "\300\207" [keep-prefix] 1 #1#] "Non-nil to ignore case when collecting completion candidates.\nWhen it's `keep-prefix', the text before point will remain unchanged after\ncandidate is inserted, even some of its characters have different case." (choice (const :tag "Don't ignore case" nil) (const :tag "Ignore case" t) (const :tag "Keep case before point" keep-prefix)) company-dabbrev-downcase #[0 "\300\207" [case-replace] 1 #1#] "Whether to downcase the returned candidates.\n\nThe value of nil means keep them as-is.\n`case-replace' means use the value of `case-replace'.\nAny other value means downcase.\n\nIf you set this value to nil, you may also want to set\n`company-dabbrev-ignore-case' to any value other than `keep-prefix'." (choice (const :tag "Keep as-is" nil) (const :tag "Downcase" t) (const :tag "Use case-replace" case-replace)) company-dabbrev-minimum-length #[0 "\300\207" [4] 1 #1#] "The minimum length for the completion candidate to be included.\nThis variable affects both `company-dabbrev' and `company-dabbrev-code'." integer (company . "0.8.3") company-dabbrev-ignore-invisible #[0 "\300\207" [nil] 1 #1#] "Non-nil to skip invisible text." boolean (company . "0.9.0")] 8)
#@41 

(fn TEST START LIMIT FREQ &rest BODY)\1f
(defalias 'company-dabbrev--time-limit-while '(macro . #[1156 "\300\301\302\303\304\ 6	\305\ 6\a\306\ 6\v\307\310\ 6\rE\311\312\313\314\ 6\12DD\ 6\10E\315BBBBBC\"BBEE\207" [let ((company-time-limit-while-counter 0)) catch 'done while append and = (cl-incf company-time-limit-while-counter) (setq company-time-limit-while-counter 0) > float-time time-since ((throw 'done 'company-time-out))] 21 (#$ . 2837)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put company-dabbrev--time-limit-while lisp-indent-function 3 put edebug-form-spec t] 5)
(defalias 'company-dabbrev--make-regexp #[0 "\301\b\302Q\207" [company-dabbrev-char-regexp "\\(?:" "\\)+"] 3])
#@55 

(fn REGEXP POS SYMBOLS START LIMIT IGNORE-COMMENTS)\1f
(defalias 'company-dabbrev--search-buffer #[1542 "\ 3C\212\300\ 6\ 6\203\ f\0\ 6\ 6S\202\10\0eb\210`\301\3022\223\0\303 ?\205\222\0\ 1eV\205\222\0\3041/\0\305u0\210\2020\0\210\301y\210\212\303 \204e\0\306\ 6\n\ 3\307#\203e\0\ 4\203^\0\310 \311\312\ 2\"\216\313 )\262\ 1\203^\0\306\314\ 3\307#\210\2024\0\ 2\ 4!\210\2024\0)`\262\ 2\ 5\203\18\0\211T\211\262\ 2\315U\203\18\0\301\211\262\ 2\203\18\0\316\317\ 6\b!!\ 6\ 6V\203\18\0\320\302\321\"\210\202\18\00\266\ 3\ 6\ 6\206\233\0eb\210\301\3022\372\0\303 ?\205\371\0\306\ 6	\322\307#\205\371\0\ 3\203\315\0\310 \311\323\ 2\"\216\313 )\262\ 1\203\315\0\306\314\322\307#\210\202\321\0\ 1\ 3!\210\ 4\203\242\0\211T\211\262\ 2\324U\203\242\0\301\211\262\ 2\203\242\0\316\317\ 6\a!!\ 5V\203\242\0\320\302\321\"\210\202\242\00\266\ 2\ 1\242\262\ 1)\207" [#[257 "\302\303!\211G\bY\205\1c\0	\205\12\0\304\303\224!?\205\1c\0\ 1\ 1\ 3\242B\240\207" [company-dabbrev-minimum-length company-dabbrev-ignore-invisible match-string-no-properties 0 invisible-p] 5 "\n\n(fn SYMBOLS)"] 0 done input-pending-p (error) -10000 re-search-forward t match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] company-in-string-or-comment "\\s>\\|\\s!\\|\\s\"" 1 float-time time-since throw company-time-out nil #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] 25] 14 (#$ . 3533)])
#@66 

(fn REGEXP &optional LIMIT OTHER-BUFFER-MODES IGNORE-COMMENTS)\1f
(defalias 'company-dabbrev--search #[1025 "\302 \303\ 5`\304\ 4\ 6\b\ 6\a&\ 6\ 3\203\7f\0\3052~\0\306p\307 \"\211\205{\0\211@\b;\2037\0\b\310\ 2!\304\311\19\312\ 3\ 3\ 3#)\266\203\202:\0\b\ 1!\204_\0r\211q\210\ 5\313=\204O\0\314\315\ 6\a\"\203^\0\303\ 6\b\304\ 5\ 6\a\ 6\v\ 6\n&\ 6\262\ 3)\ 6\ 6\203t\0\316\317\ 5!!\ 6\aV\203t\0\320\305\304\"\210\ 1A\266\202\202\1a\0\262\ 10\210\207" [company-dabbrev-ignore-buffers inhibit-changing-match-data current-time company-dabbrev--search-buffer nil --cl-block-nil-- delq buffer-list buffer-name t string-match all apply derived-mode-p float-time time-since throw] 15 (#$ . 4793)])
(defalias 'company-dabbrev--prefix #[0 "\301\b!?\205\ e\0\302\303\304\b\"\305\"\207" [company-dabbrev-char-regexp looking-at company-grab-line format "\\(?:^\\| \\)[^ ]*?\\(\\(?:%s\\)*\\)" 1] 4])
#@26 

(fn PREFIX CANDIDATES)\1f
(defalias 'company-dabbrev--filter #[514 "\b\19\302\ 2\ 2\")\207" [company-dabbrev-ignore-case completion-ignore-case all-completions] 5 (#$ . 5601)])
#@91 dabbrev-like `company-mode' completion backend.

(fn COMMAND &optional ARG &rest IGNORED)\1f
(defalias 'company-dabbrev #[641 "\ 2\306\267\202J\0\307\310!\207\311 \207\b\19\312\313 \n\v\314\267\202\"\0\fC\202#\0\315\202#\0\316#\r\317=\203/\0\ e\ f\2020\0\r\320\ 4\ 3\"\262\ 2\211\203A\0\321\322\ 3\"\202B\0\ 1)\207\323\207\b\207\324\207\316\207" [company-dabbrev-ignore-case case-fold-search company-dabbrev-time-limit company-dabbrev-other-buffers major-mode company-dabbrev-downcase #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (interactive 6 prefix 10 candidates 13 kind 68 ignore-case 70 duplicates 72)) company-begin-backend company-dabbrev company-dabbrev--prefix company-dabbrev--search company-dabbrev--make-regexp #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 25 all 30)) all nil case-replace company-dabbrev--filter mapcar downcase text t] 8 (#$ . 5776) (byte-code "\300C\207" [interactive] 1)])
(provide 'company-dabbrev)