[config.git] / djavu-asus / emacs / elpa / company-20230926.32 / company-elisp.elc

;ELC\1c\0\0\0
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.


(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 #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 #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)
(defalias 'company-elisp--prefix #[0 "\300 \211\203 \0\301 \203\1a\0`\ 1GZ\206\13\0`Sf\302U\202\1c\0\303 \205!\0\207\304\207" [company-grab-symbol company-in-string-or-comment 96 company-elisp--should-complete stop] 3])
#@15 

(fn SYMBOL)\1f
(defalias 'company-elisp--predicate #[257 "\300\ 1!\206\15\0\301\ 1!\206\15\0\302\ 1!\206\15\0\303\ 1!\207" [boundp fboundp facep featurep] 3 (#$ . 1093)])
#@20 

(fn &rest NAMES)\1f
(defalias 'company-elisp--fns-regexp #[128 "\300\301\ 2!\302Q\207" ["\\_<\\(?:cl-\\)?" regexp-opt "\\*?\\_>"] 4 (#$ . 1252)])
(defvar company-elisp-parse-limit 30)
(defvar company-elisp-parse-depth 100)
(defvar company-elisp-defun-names '("defun" "defmacro" "defsubst"))
#@72 Regular expression matching head of a multiple variable bindings form.\1f
(defvar company-elisp-var-binding-regexp (apply 'company-elisp--fns-regexp "let" "lambda" "lexical-let" company-elisp-defun-names) (#$ . 1546))
#@71 Regular expression matching head of a form with one variable binding.\1f
(defvar company-elisp-var-binding-regexp-1 (company-elisp--fns-regexp "dolist" "dotimes") (#$ . 1767))
#@63 Regular expression matching head of a function bindings form.\1f
(defvar company-elisp-fun-binding-regexp (company-elisp--fns-regexp "flet" "labels") (#$ . 1946))
(defvar company-elisp-defuns-regexp (byte-code "\301\302\303\b\"P\207" [company-elisp-defun-names "([ 	\n]*" apply company-elisp--fns-regexp] 4))
(defalias 'company-elisp--should-complete #[0 "`\301 @\211\302V\205=\0\212\303\ 1[!\210\304\b!\205<\0\305u\210\306\307!\210`\ 2U?\205<\0\3101:\0\311`\312\"\211?\2064\0\211\ 3V\262\ 10\202<\0\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])
#@27 

(fn PREFIX FUNCTIONS-P)\1f
(defalias 'company-elisp--locals #[514 "\305\306\ 3!\307Q`\310\3111\331\0\212\b\312\211\ 2W\205\323\0\310\313\314!\210\212\310f\315=\203\312\0\316u\210\31715\0\212\320 \210`\ 5X)0\2029\0\210\202\312\0\203\312\0\321\310w\210\322\ 6\a\203J\0	\202K\0\n!\203\237\0\323\316!\210\3241\233\0\v\312\211\ 2W\205\224\0\310\212\322\325!\203k\0\323\316!\210\322\ 6	!\203\210\0\326\316!\327\ 1\ 6	\"\203\201\0\210\202\210\0\211\ 6\bB\262\b\210)\330 \266\ 2\211T\262\ 1\202Y\0\266\2020\210\202\312\0\210\202\312\0\ 6\ 6\204\312\0\322\f!\203\312\0\323\316!\210\322\ 6\ 6!\203\312\0\326\316!\327\ 1\ 6\ 6\"\203\304\0\210\202\312\0\211\ 5B\262\ 5\210)\210\211T\262\ 1\202\ f\0\266\202)0\210\207\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 (#$ . 2562)])
#@15 

(fn PREFIX)\1f
(defalias 'company-elisp-candidates #[257 "\301\ 1!\302\ 2\ 2\303=\"\304\ 3\ 3\"\ 1\305\211\ 2:\203+\0\ 2@\262\ 2\ 1\ 4\235\204$\0\ 1\ 1B\262\ 1\ 2A\262\ 3\202\10\0\211\237\266\203\b\203>\0\306\307\ 2\310\"\307\ 4\310\"\"\207\306\ 1\ 3\"\207" [company-elisp-show-locals-first company-elisp--candidates-predicate company-elisp--locals fboundp company-elisp--globals nil append sort string<] 10 (#$ . 3593)])
#@25 

(fn PREFIX PREDICATE)\1f
(defalias 'company-elisp--globals #[514 "\301\ 2\b\ 3#\207" [obarray all-completions] 6 (#$ . 3973)])
#@15 

(fn PREFIX)\1f
(defalias 'company-elisp--candidates-predicate #[257 "\302\18`\ 1GZ\211\206\v\0`Sf	\203C\0\211\303>\204C\0\211\304=\203?\0\212\30515\0\ 1Sb\210\306 \2061\0\307\310!\210\306 0\2027\0\210\302)\204?\0\311\202D\0\312\202D\0\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 (#$ . 4100)])
(defalias 'company-elisp--before-binding-varlist-p #[0 "\212\301\302!\303u\210\205\r\0\304\b!)\207" [company-elisp-var-binding-regexp search-backward "(" 1 looking-at] 2])
#@15 

(fn SYMBOL)\1f
(defalias 'company-elisp--doc #[257 "\300\ 1!\301\ 1!\203\10\0\302\ 1\303\"\202\15\0\304\ 1\305\303#\211;\205%\0\306\307\ 2\"\205%\0\310\311\ 2\"\207" [intern fboundp documentation t documentation-property variable-documentation string-match ".*$" match-string 0] 6 (#$ . 4695)])
#@93 `company-mode' completion backend for Emacs Lisp.

(fn COMMAND &optional ARG &rest IGNORED)\1f
(defalias 'company-elisp #[641 "\ 2\301\267\202\243\0\302\303!\207\304\305\306\"\205\244\0\307 \207\310\ 2!\207\b\207\311\ 2!\207\312\ 2!\313 \314\315\ 2\"\216\3161k\0\317\ 2!\2039\0\320\ 2!\210\202e\0\321\ 2!\203F\0\322\ 2!\210\202e\0\323\ 2!\203S\0\324\ 2!\210\202e\0\325\ 2!\203`\0\326\ 2!\210\202e\0\327\330\331\"\210\332 0\202m\0\210\331)\207\312\ 2!\317\ 1!\203}\0\333\ 1\331\"\207\321\ 1!\203\210\0\333\ 1\334\"\207\323\ 1!\203\230\0\335\336\337\ 3!!!\340B\207\325\ 1!\205\242\0\333\ 1\341\"\207\331\207" [company-elisp-show-locals-first #s(hash-table size 7 test eq 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 111)) 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-closure #[0 "\301\300!\207" [V0 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 0 defface] 8 (#$ . 4975) (byte-code "\300C\207" [interactive] 1)])
(provide 'company-elisp)
Commit	Line	Data
53e6db90 DC	1	;ELC\1c\0\0\0
	2	;;; Compiled
	3	;;; in Emacs version 28.2
	4	;;; with all optimizations.
	5
	6
	7
	8	(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 #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 #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)
	9	(defalias 'company-elisp--prefix #[0 "\300 \211\203 \0\301 \203\1a\0`\ 1GZ\206\13\0`Sf\302U\202\1c\0\303 \205!\0\207\304\207" [company-grab-symbol company-in-string-or-comment 96 company-elisp--should-complete stop] 3])
	10	#@15
	11
	12	(fn SYMBOL)\1f
	13	(defalias 'company-elisp--predicate #[257 "\300\ 1!\206\15\0\301\ 1!\206\15\0\302\ 1!\206\15\0\303\ 1!\207" [boundp fboundp facep featurep] 3 (#$ . 1093)])
	14	#@20
	15
	16	(fn &rest NAMES)\1f
	17	(defalias 'company-elisp--fns-regexp #[128 "\300\301\ 2!\302Q\207" ["\\_<\\(?:cl-\\)?" regexp-opt "\\*?\\_>"] 4 (#$ . 1252)])
	18	(defvar company-elisp-parse-limit 30)
	19	(defvar company-elisp-parse-depth 100)
	20	(defvar company-elisp-defun-names '("defun" "defmacro" "defsubst"))
	21	#@72 Regular expression matching head of a multiple variable bindings form.\1f
	22	(defvar company-elisp-var-binding-regexp (apply 'company-elisp--fns-regexp "let" "lambda" "lexical-let" company-elisp-defun-names) (#$ . 1546))
	23	#@71 Regular expression matching head of a form with one variable binding.\1f
	24	(defvar company-elisp-var-binding-regexp-1 (company-elisp--fns-regexp "dolist" "dotimes") (#$ . 1767))
	25	#@63 Regular expression matching head of a function bindings form.\1f
	26	(defvar company-elisp-fun-binding-regexp (company-elisp--fns-regexp "flet" "labels") (#$ . 1946))
	27	(defvar company-elisp-defuns-regexp (byte-code "\301\302\303\b\"P\207" [company-elisp-defun-names "([ \n]*" apply company-elisp--fns-regexp] 4))
	28	(defalias 'company-elisp--should-complete #[0 "`\301 @\211\302V\205=\0\212\303\ 1[!\210\304\b!\205<\0\305u\210\306\307!\210`\ 2U?\205<\0\3101:\0\311`\312\"\211?\2064\0\211\ 3V\262\ 10\202<\0\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])
	29	#@27
	30
	31	(fn PREFIX FUNCTIONS-P)\1f
	32	(defalias 'company-elisp--locals #[514 "\305\306\ 3!\307Q`\310\3111\331\0\212\b\312\211\ 2W\205\323\0\310\313\314!\210\212\310f\315=\203\312\0\316u\210\31715\0\212\320 \210`\ 5X)0\2029\0\210\202\312\0\203\312\0\321\310w\210\322\ 6\a\203J\0 \202K\0\n!\203\237\0\323\316!\210\3241\233\0\v\312\211\ 2W\205\224\0\310\212\322\325!\203k\0\323\316!\210\322\ 6 !\203\210\0\326\316!\327\ 1\ 6 \"\203\201\0\210\202\210\0\211\ 6\bB\262\b\210)\330 \266\ 2\211T\262\ 1\202Y\0\266\2020\210\202\312\0\210\202\312\0\ 6\ 6\204\312\0\322\f!\203\312\0\323\316!\210\322\ 6\ 6!\203\312\0\326\316!\327\ 1\ 6\ 6\"\203\304\0\210\202\312\0\211\ 5B\262\ 5\210)\210\211T\262\ 1\202\ f\0\266\202)0\210\207\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 (#$ . 2562)])
	33	#@15
	34
	35	(fn PREFIX)\1f
	36	(defalias 'company-elisp-candidates #[257 "\301\ 1!\302\ 2\ 2\303=\"\304\ 3\ 3\"\ 1\305\211\ 2:\203+\0\ 2@\262\ 2\ 1\ 4\235\204$\0\ 1\ 1B\262\ 1\ 2A\262\ 3\202\10\0\211\237\266\203\b\203>\0\306\307\ 2\310\"\307\ 4\310\"\"\207\306\ 1\ 3\"\207" [company-elisp-show-locals-first company-elisp--candidates-predicate company-elisp--locals fboundp company-elisp--globals nil append sort string<] 10 (#$ . 3593)])
	37	#@25
	38
	39	(fn PREFIX PREDICATE)\1f
	40	(defalias 'company-elisp--globals #[514 "\301\ 2\b\ 3#\207" [obarray all-completions] 6 (#$ . 3973)])
	41	#@15
	42
	43	(fn PREFIX)\1f
	44	(defalias 'company-elisp--candidates-predicate #[257 "\302\18`\ 1GZ\211\206\v\0`Sf \203C\0\211\303>\204C\0\211\304=\203?\0\212\30515\0\ 1Sb\210\306 \2061\0\307\310!\210\306 0\2027\0\210\302)\204?\0\311\202D\0\312\202D\0\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 (#$ . 4100)])
	45	(defalias 'company-elisp--before-binding-varlist-p #[0 "\212\301\302!\303u\210\205\r\0\304\b!)\207" [company-elisp-var-binding-regexp search-backward "(" 1 looking-at] 2])
	46	#@15
	47
	48	(fn SYMBOL)\1f
	49	(defalias 'company-elisp--doc #[257 "\300\ 1!\301\ 1!\203\10\0\302\ 1\303\"\202\15\0\304\ 1\305\303#\211;\205%\0\306\307\ 2\"\205%\0\310\311\ 2\"\207" [intern fboundp documentation t documentation-property variable-documentation string-match ".*$" match-string 0] 6 (#$ . 4695)])
	50	#@93 `company-mode' completion backend for Emacs Lisp.
	51
	52	(fn COMMAND &optional ARG &rest IGNORED)\1f
	53	(defalias 'company-elisp #[641 "\ 2\301\267\202\243\0\302\303!\207\304\305\306\"\205\244\0\307 \207\310\ 2!\207\b\207\311\ 2!\207\312\ 2!\313 \314\315\ 2\"\216\3161k\0\317\ 2!\2039\0\320\ 2!\210\202e\0\321\ 2!\203F\0\322\ 2!\210\202e\0\323\ 2!\203S\0\324\ 2!\210\202e\0\325\ 2!\203`\0\326\ 2!\210\202e\0\327\330\331\"\210\332 0\202m\0\210\331)\207\312\ 2!\317\ 1!\203}\0\333\ 1\331\"\207\321\ 1!\203\210\0\333\ 1\334\"\207\323\ 1!\203\230\0\335\336\337\ 3!!!\340B\207\325\ 1!\205\242\0\333\ 1\341\"\207\331\207" [company-elisp-show-locals-first #s(hash-table size 7 test eq 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 111)) 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-closure #[0 "\301\300!\207" [V0 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 0 defface] 8 (#$ . 4975) (byte-code "\300C\207" [interactive] 1)])
	54	(provide 'company-elisp)