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

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


(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\301%\210\310\311\312\313\314\315\316\317&\a\207" [require company cl-lib custom-declare-group company-bbdb nil "Completion backend for BBDB." :group custom-declare-variable company-bbdb-modes '(message-mode) "Major modes in which `company-bbdb' may complete." :type (repeat (symbol :tag "Major mode")) :package-version (company . "0.8.8")] 8)
(defalias 'company-bbdb--candidates #[(arg) "\300\301\302\303!\"\207" [cl-mapcan #[(record) "\301\302\303\b\304\"\"\207" [record mapcar #[(mail) "\302\b	\"\207" [record mail bbdb-dwim-mail] 3] bbdb-record-get-field mail] 5] eval (bbdb-search (bbdb-records) arg nil arg)] 4])
#@45 `company-mode' completion backend for BBDB.\1f
(defalias 'company-bbdb #[(command &optional arg &rest ignore) "\b\305\267\202-\0\306\307!\207	\n>\205.\0\310\311!\205.\0\312\e\313\314\315 \")\205.\0\316\317!\207\320\f!\207\312\207\312\207\321\207" [command major-mode company-bbdb-modes case-fold-search arg #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (interactive 6 prefix 10 candidates 37 sorted 41 no-cache 43)) company-begin-backend company-bbdb featurep bbdb-com t looking-back "^\\([^ :]*-\\)?\\(To\\|B?Cc\\|From\\):.*? *\\([^,;]*\\)" line-beginning-position match-string-no-properties 3 company-bbdb--candidates nil] 3 (#$ . 758) (list 'interactive)])
(provide 'company-bbdb)
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\303\304\305\306\307\301%\210\310\311\312\313\314\315\316\317&\a\207" [require company cl-lib custom-declare-group company-bbdb nil "Completion backend for BBDB." :group custom-declare-variable company-bbdb-modes '(message-mode) "Major modes in which `company-bbdb' may complete." :type (repeat (symbol :tag "Major mode")) :package-version (company . "0.8.8")] 8)
	9	(defalias 'company-bbdb--candidates #[(arg) "\300\301\302\303!\"\207" [cl-mapcan #[(record) "\301\302\303\b\304\"\"\207" [record mapcar #[(mail) "\302\b \"\207" [record mail bbdb-dwim-mail] 3] bbdb-record-get-field mail] 5] eval (bbdb-search (bbdb-records) arg nil arg)] 4])
	10	#@45 `company-mode' completion backend for BBDB.\1f
	11	(defalias 'company-bbdb #[(command &optional arg &rest ignore) "\b\305\267\202-\0\306\307!\207 \n>\205.\0\310\311!\205.\0\312\e\313\314\315 \")\205.\0\316\317!\207\320\f!\207\312\207\312\207\321\207" [command major-mode company-bbdb-modes case-fold-search arg #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (interactive 6 prefix 10 candidates 37 sorted 41 no-cache 43)) company-begin-backend company-bbdb featurep bbdb-com t looking-back "^\\([^ :]-\\)?\\(To\\\|B?Cc\\\|From\\):.? \\([^,;]\\)" line-beginning-position match-string-no-properties 3 company-bbdb--candidates nil] 3 (#$ . 758) (list 'interactive)])
	12	(provide 'company-bbdb)