mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-18 76bbd07de7add0f9d13c6914f158d19630fe2f62
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\203S\202eb\210`\302\3102\252\311 ?\205\251eV\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\262eb\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\2710\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)