;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; 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&\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&\210\310\353\312\313\354DD\355\316\356\324\357&\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] "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 #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] "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" [#2="\\sw"] 1 #2#] "A regular expression matching the characters `company-dabbrev' looks for." regexp company-dabbrev-ignore-case #[0 "\300\207" [keep-prefix] 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] "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] "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] "Non-nil to skip invisible text." boolean (company . "0.9.0")] 8) #@41 (fn TEST START LIMIT FREQ &rest BODY) (defalias 'company-dabbrev--time-limit-while '(macro . #[1156 "\300\301\302\303\304 \305\306 \307\310 E\311\312\313\314DDE\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 (#$ . 2820)])) (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\302Q\207" [company-dabbrev-char-regexp "\\(?:" "\\)+"] 3]) #@55 (fn REGEXP POS SYMBOLS START LIMIT IGNORE-COMMENTS) (defalias 'company-dabbrev--search-buffer #[1542 "C\212\300\203S\202eb\210`\301\3022\223\303 ?\205\222eV\205\222\3041/\305u0\210\2020\210\301y\210\212\303 \204e\306\n\307#\203e\203^\310 \311\312\"\216\313 )\262\203^\306\314\307#\210\2024!\210\2024)`\262\203\211T\211\262\315U\203\301\211\262\203\316\317!!V\203\320\302\321\"\210\2020\266\206\233eb\210\301\3022\372\303 ?\205\371\306 \322\307#\205\371\203\315\310 \311\323\"\216\313 )\262\203\315\306\314\322\307#\210\202\321!\210\203\242\211T\211\262\324U\203\242\301\211\262\203\242\316\317!!V\203\242\320\302\321\"\210\202\2420\266\242\262)\207" [#[257 "\302\303!\211GY\205 \205\304\303\224!?\205\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 (#$ . 3516)]) #@66 (fn REGEXP &optional LIMIT OTHER-BUFFER-MODES IGNORE-COMMENTS) (defalias 'company-dabbrev--search #[1025 "\302 \303`\304&\203\3052~\306p\307 \"\211\205{\211@;\2037\310!\304\311\312#)\266\203\202:!\204_r\211q\210\313=\204O\314\315\"\203^\303\304 \n&\262)\203t\316\317!!V\203t\320\305\304\"\210A\266\202\202\2620\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 (#$ . 4776)]) (defalias 'company-dabbrev--prefix #[0 "\301!?\205\302\303\304\"\305\"\207" [company-dabbrev-char-regexp looking-at company-grab-line format "\\(?:^\\| \\)[^ ]*?\\(\\(?:%s\\)*\\)" 1] 4]) #@26 (fn PREFIX CANDIDATES) (defalias 'company-dabbrev--filter #[514 "\302\")\207" [company-dabbrev-ignore-case completion-ignore-case all-completions] 5 (#$ . 5584)]) #@91 dabbrev-like `company-mode' completion backend. (fn COMMAND &optional ARG &rest IGNORED) (defalias 'company-dabbrev #[641 "\306\267\202H\307\310!\207\311 \207\312\313 \n \314\267\202\"\fC\202#\315\202#\316# \317=\203/\2020 \320\"\262\211\203A\321\322\"\202B)\207\207\323\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 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (interactive 6 prefix 10 candidates 13 ignore-case 68 duplicates 70)) 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 t] 8 (#$ . 5759) (byte-code "\300C\207" [interactive] 1)]) (provide 'company-dabbrev)