;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\301%\210\310\311\312\313\314DD\315\316\317\320\321&\207" [require company cl-lib custom-declare-group company-bbdb nil "Completion backend for BBDB." :group custom-declare-variable company-bbdb-modes funcall function #[0 "\300\207" [(message-mode)] 1 ""] "Major modes in which `company-bbdb' may complete." :type (repeat (symbol :tag "Major mode")) :package-version (company . "0.8.8")] 8)#@12 (fn ARG) (defalias 'company-bbdb--candidates #[257 "\300\301\302\303\304DC\305BB\306\"\"\207" [cl-mapcan #[257 "\300\301\302\"\303\304\"\"\207" [mapcar make-closure #[257 "\301\300\"\207" [V0 bbdb-dwim-mail] 4 "\n\n(fn MAIL)"] bbdb-record-get-field mail] 6 "\n\n(fn RECORD)"] eval let arg ((bbdb-search (bbdb-records) :all-names arg :mail arg)) t] 7 (#$ . 533)])#@86 `company-mode' completion backend for BBDB. (fn COMMAND &optional ARG &rest IGNORE) (defalias 'company-bbdb #[641 "\303\267\202-\304\305!\207 >\205.\306\307!\205.\310\311\312\313 \")\205.\314\315!\207\316!\207\310\207\310\207\317\207" [major-mode company-bbdb-modes case-fold-search #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] 6 (#$ . 907) (byte-code "\300C\207" [interactive] 1)]) (provide 'company-bbdb)