| 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!\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) | |
| 16 | #@41 | |
| 17 | ||
| 18 | (fn TEST START LIMIT FREQ &rest BODY) | |
| 19 | (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 (#$ . 3141)])) | |
| 20 | (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) | |
| 21 | (defalias 'company-dabbrev--make-regexp #[0 "\301\302Q\207" [company-dabbrev-char-regexp "\\(?:" "\\)+"] 3]) | |
| 22 | #@55 | |
| 23 | ||
| 24 | (fn REGEXP POS SYMBOLS START LIMIT IGNORE-COMMENTS) | |
| 25 | (defalias 'company-dabbrev--search-buffer #[1542 "C\212\300\301\302\303\304\305!\306\"\307$\262\203 S\202 eb\210`\302\3102\252 \311 ?\205\251 eV\205\251 \3121< \313u0\202@ \210\202A \210\302y\210\212\311 \204| \314\n\315#\203| \203v \316 \301\302\317\304\305!\320\"\321$\216\322 )\262\203v \314\323\315#\210\202E \210\202E )`\262\203& \211T\211\262\324U\203& \302\211\262\203& \325\326!!V\203& \327\310\330\"\210\202& 0\266\206\262 eb\210\302\3102\311 ?\205\314 \300\315#\205\203\353 \316 \301\302\317\304\305!\331\"\321$\216\322 )\262\203\353 \314\323\300\315#\210\202\356 \210\203\271 \211T\211\262\332U\203\271 \302\211\262\203\271 \325\326!!V\203\271 \327\310\330\"\210\202\271 0\266\242\262)\207" [nil make-byte-code 0 "\303\304!\211G Y\205 \n\205 \305\304\224!?\205 \300\300\242B\240\207" vconcat vector [company-dabbrev-minimum-length company-dabbrev-ignore-invisible match-string-no-properties 0 invisible-p] 4 done input-pending-p (error) -10000 re-search-forward t match-data "\301\300\302\"\207" [set-match-data evaporate] 3 company-in-string-or-comment "\\s>\\|\\s!\\|\\s\"" 1 float-time time-since throw company-time-out [set-match-data evaporate] 25] 17 (#$ . 3837)]) | |
| 26 | #@66 | |
| 27 | ||
| 28 | (fn REGEXP &optional LIMIT OTHER-BUFFER-MODES IGNORE-COMMENTS) | |
| 29 | (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 (#$ . 5134)]) | |
| 30 | (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]) | |
| 31 | #@26 | |
| 32 | ||
| 33 | (fn PREFIX CANDIDATES) | |
| 34 | (defalias 'company-dabbrev--filter #[514 "\302\")\207" [company-dabbrev-ignore-case completion-ignore-case all-completions] 5 (#$ . 5942)]) | |
| 35 | #@91 dabbrev-like `company-mode' completion backend. | |
| 36 | ||
| 37 | (fn COMMAND &optional ARG &rest IGNORED) | |
| 38 | (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 eql 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 (#$ . 6117) (byte-code "\300C\207" [interactive] 1)]) | |
| 39 | (provide 'company-dabbrev) | |
