| 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\300\304!\210\305\306\307\310\311\301%\210\312\313\314\315\316DD\317\320\321%\210\312\322\314\315\323DD\324\320\325%\207" [require company cl-lib help-mode find-func custom-declare-group company-elisp nil "Completion backend for Emacs Lisp." :group custom-declare-variable company-elisp-detect-function-context funcall function #[0 "\300\207" [t] 1] "If enabled, offer Lisp functions only in appropriate contexts.\nFunctions are offered for completion only after ' and (." :type (choice (const :tag "Off" nil) (const :tag "On" t)) company-elisp-show-locals-first #[0 "\300\207" [t] 1] "If enabled, locally bound variables and functions are displayed\nfirst in the candidates list." (choice (const :tag "Off" nil) (const :tag "On" t))] 6) | |
| 16 | (defalias 'company-elisp--prefix #[0 "\300 \211\203# \301 \203 `GZ\206 `Sf\302U\202 \303 \205$ \211\202$ \304\207" [company-grab-symbol company-in-string-or-comment 96 company-elisp--should-complete stop] 3]) | |
| 17 | #@15 | |
| 18 | ||
| 19 | (fn SYMBOL) | |
| 20 | (defalias 'company-elisp--predicate #[257 "\300!\206 \301!\206 \302!\206 \303!\207" [boundp fboundp facep featurep] 3 (#$ . 1410)]) | |
| 21 | #@20 | |
| 22 | ||
| 23 | (fn &rest NAMES) | |
| 24 | (defalias 'company-elisp--fns-regexp #[128 "\300\301!\302Q\207" ["\\_<\\(?:cl-\\)?" regexp-opt "\\*?\\_>"] 4 (#$ . 1569)]) | |
| 25 | (defvar company-elisp-parse-limit 30) | |
| 26 | (defvar company-elisp-parse-depth 100) | |
| 27 | (defvar company-elisp-defun-names '("defun" "defmacro" "defsubst")) | |
| 28 | #@72 Regular expression matching head of a multiple variable bindings form. | |
| 29 | (defvar company-elisp-var-binding-regexp (apply 'company-elisp--fns-regexp "let" "lambda" "lexical-let" company-elisp-defun-names) (#$ . 1863)) | |
| 30 | #@71 Regular expression matching head of a form with one variable binding. | |
| 31 | (defvar company-elisp-var-binding-regexp-1 (company-elisp--fns-regexp "dolist" "dotimes") (#$ . 2084)) | |
| 32 | #@63 Regular expression matching head of a function bindings form. | |
| 33 | (defvar company-elisp-fun-binding-regexp (company-elisp--fns-regexp "flet" "labels") (#$ . 2263)) | |
| 34 | (defvar company-elisp-defuns-regexp (byte-code "\301\302\303\"P\207" [company-elisp-defun-names "([ \n]*" apply company-elisp--fns-regexp] 4)) | |
| 35 | (defalias 'company-elisp--should-complete #[0 "`\301 @\211\302V\205= \212\303[!\210\304!\205< \305u\210\306\307!\210`U?\205< \3101: \311`\312\"\211?\2064 \211V\2620\202< \210\313)?\207" [company-elisp-defuns-regexp syntax-ppss 0 up-list looking-at nil forward-sexp 1 (scan-error) scan-sexps 2 t] 5]) | |
| 36 | #@27 | |
| 37 | ||
| 38 | (fn PREFIX FUNCTIONS-P) | |
| 39 | (defalias 'company-elisp--locals #[514 "\305\306!\307Q`\310\3111\325 \212\312\211W\205\316 \211\313\314!\210\212\310f\315=\203\305 \316u\210\31715 \212\320 \210`X)0\2029 \210\202\305 \203\305 \321\310w\210\322\203J \202K \n!\203\236 \323\316!\210\3241\226 \312\211W\205\220 \211\212\322\325!\203k \323\316!\210\322 !\203\204 \326\316!\327 \"\204\203 \211B\262\210)\330 \266\211T\262\202Y \266\2020\202\232 \210\202\305 \210\202\305 \204\305 \322\f!\203\305 \323\316!\210\322!\203\305 \326\316!\327\"\204\304 \211B\262\210)\210\211T\262\202 \266\202)0\202\331 \210\202\332 \210\207" [company-elisp-parse-depth company-elisp-fun-binding-regexp company-elisp-var-binding-regexp company-elisp-parse-limit company-elisp-var-binding-regexp-1 "[ \n]*\\(\\_<" regexp-quote "\\(?:\\sw\\|\\s_\\)*\\_>\\)" nil (scan-error) 0 up-list -1 40 1 (error) forward-list " \n" looking-at down-list (scan-error) "[ \n]*(" match-string-no-properties memql forward-sexp] 15 (#$ . 2879)]) | |
| 40 | #@15 | |
| 41 | ||
| 42 | (fn PREFIX) | |
| 43 | (defalias 'company-elisp-candidates #[257 "\301!\302\303=\"\304\"\305\211:\203+ @\262\235\204$ B\262A\262\202 \211\237\266\203\203@ \306\307\310\"\307\310\"\"\202D \306\"\207" [company-elisp-show-locals-first company-elisp--candidates-predicate company-elisp--locals fboundp company-elisp--globals nil append sort string<] 10 (#$ . 3907)]) | |
| 44 | #@25 | |
| 45 | ||
| 46 | (fn PREFIX PREDICATE) | |
| 47 | (defalias 'company-elisp--globals #[514 "\301#\207" [obarray all-completions] 6 (#$ . 4289)]) | |
| 48 | #@15 | |
| 49 | ||
| 50 | (fn PREFIX) | |
| 51 | (defalias 'company-elisp--candidates-predicate #[257 "\302`GZ\211\206 `Sf \203C \211\303>\204C \211\304=\203? \212\30515 Sb\210\306 \2061 \307\310!\210\306 0\2027 \210\302)\204? \311\202D \312\202D \313)\207" [completion-ignore-case company-elisp-detect-function-context nil (39 96) 40 (error) company-elisp--before-binding-varlist-p up-list -1 fboundp boundp company-elisp--predicate] 5 (#$ . 4416)]) | |
| 52 | (defalias 'company-elisp--before-binding-varlist-p #[0 "\212\301\302!\303u\210\205 \304!)\207" [company-elisp-var-binding-regexp search-backward "(" 1 looking-at] 2]) | |
| 53 | #@15 | |
| 54 | ||
| 55 | (fn SYMBOL) | |
| 56 | (defalias 'company-elisp--doc #[257 "\300!\301!\203 \302\303\"\202 \304\305\303#\211;\205% \306\307\"\205% \310\311\"\207" [intern fboundp documentation t documentation-property variable-documentation string-match ".*$" match-string 0] 6 (#$ . 5011)]) | |
| 57 | #@93 `company-mode' completion backend for Emacs Lisp. | |
| 58 | ||
| 59 | (fn COMMAND &optional ARG &rest IGNORED) | |
| 60 | (defalias 'company-elisp #[641 "\301\267\202\262 \302\303!\207\304\305\306\"\205\263 \307 \207\310!\207\207\311!\207\312!\313 \314\315\316\317\320!\321\"\322$\216\3231r \324!\203@ \325!\210\202l \326!\203M \327!\210\202l \330!\203Z \331!\210\202l \332!\203g \333!\210\202l \334\335\336\"\210\337 0\202t \210\336)\262\207\312!\324!\203\210 \340\336\"\202\261 \326!\203\225 \340\341\"\202\261 \330!\203\247 \342\343\344!!!\315B\202\261 \332!\205\261 \340\345\"\207\336\207" [company-elisp-show-locals-first #s(hash-table size 7 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (interactive 6 prefix 10 candidates 20 sorted 24 meta 26 doc-buffer 30 location 120)) company-begin-backend company-elisp derived-mode-p emacs-lisp-mode inferior-emacs-lisp-mode company-elisp--prefix company-elisp-candidates company-elisp--doc intern current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 (error) fboundp describe-function boundp describe-variable featurep describe-package facep describe-face signal user-error nil help-buffer find-definition-noselect defvar find-file-noselect find-library-name symbol-name defface] 11 (#$ . 5291) (byte-code "\300C\207" [interactive] 1)]) | |
| 61 | (provide 'company-elisp) | |
