| 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\300\303!\210\304\305\306\307\310\301%\210\311\312\313\314\315DD\316\317\320%\210\311\321\313\314\322DD\323\317\324%\210\311\325\313\314\326DD\327\317\330%\210\311\331\313\314\332DD\333\317\334%\210\311\335\313\314\336DD\337\317\334%\207" [require company company-dabbrev cl-lib custom-declare-group company-dabbrev-code nil "dabbrev-like completion backend for code." :group custom-declare-variable company-dabbrev-code-modes funcall function #[0 "\300\207" [(prog-mode batch-file-mode csharp-mode css-mode erlang-mode haskell-mode jde-mode lua-mode python-mode)] 1] "Modes that use `company-dabbrev-code'.\nIn all these modes (and their derivatives) `company-dabbrev-code' will\ncomplete only symbols, not text in comments or strings. In other modes\n`company-dabbrev-code' will pass control to other backends\n(e.g. `company-dabbrev'). Value t means complete in all modes." :type (choice (repeat :tag "Some modes" (symbol :tag "Major mode")) (const :tag "All modes" t)) company-dabbrev-code-other-buffers #[0 "\300\207" [t] 1] "Determines whether `company-dabbrev-code' should search other buffers.\nIf `all', search all other buffers, except the ignored ones. If t, search\nbuffers with the same major mode. If `code', search all buffers with major\nmodes in `company-dabbrev-code-modes', or derived from one of them. See\nalso `company-dabbrev-code-time-limit'." (choice (const :tag "Off" nil) (const :tag "Same major mode" t) (const :tag "Code major modes" code) (const :tag "All" all)) company-dabbrev-code-time-limit #[0 "\300\207" [0.1] 1] "Determines how long `company-dabbrev-code' should look for matches." (choice (const :tag "Off" nil) (number :tag "Seconds")) company-dabbrev-code-everywhere #[0 "\300\207" [nil] 1] "Non-nil to offer completions in comments and strings." boolean company-dabbrev-code-ignore-case #[0 "\300\207" [nil] 1] "Non-nil to ignore case when collecting completion candidates."] 6) | |
| 16 | #@15 | |
| 17 | ||
| 18 | (fn PREFIX) | |
| 19 | (defalias 'company-dabbrev-code--make-regexp #[257 "\300\301\232\203 \302\202 \303!\304Q\207" ["\\_<" "" "\\([a-zA-Z]\\|\\s_\\)" regexp-quote "\\(\\sw\\|\\s_\\)*\\_>"] 4 (#$ . 2371)]) | |
| 20 | #@181 dabbrev-like `company-mode' backend for code. | |
| 21 | The backend looks for all symbols in the current buffer that aren't in | |
| 22 | comments or strings. | |
| 23 | ||
| 24 | (fn COMMAND &optional ARG &rest IGNORED) | |
| 25 | (defalias 'company-dabbrev-code #[641 "\306\267\202M \307\310!\207\311=\204 \312\313\"\205N \204! \314 ?\205N \315 \206' \316\207\n\317\320!\f \321\267\202C C\202D \202D \322\202D \323 ?$)\207\n\207\311\207\323\207" [company-dabbrev-code-modes company-dabbrev-code-everywhere company-dabbrev-code-ignore-case case-fold-search company-dabbrev-code-time-limit company-dabbrev-code-other-buffers #s(hash-table size 5 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (interactive 6 prefix 10 candidates 40 ignore-case 73 duplicates 75)) company-begin-backend company-dabbrev-code t apply derived-mode-p company-in-string-or-comment company-grab-symbol stop company-dabbrev--search company-dabbrev-code--make-regexp #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 53 code 59 all 63)) all nil major-mode] 8 (#$ . 2580) (byte-code "\300C\207" [interactive] 1)]) | |
| 26 | (provide 'company-dabbrev-code) | |
