20 lines
1.7 KiB
Plaintext
20 lines
1.7 KiB
Plaintext
|
;ELC
|
|||
|
|
;;; Compiled
|
|||
|
|
;;; in Emacs version 26.3
|
|||
|
|
;;; with all optimizations.
|
|||
|
|
|
|||
|
|
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
|
|||
|
|
|
|||
|
|
;;; This file does not contain utf-8 non-ASCII characters,
|
|||
|
|
;;; and so can be loaded in Emacs versions earlier than 23.
|
|||
|
|
|
|||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|||
|
|
|
|||
|
|
|
|||
|
|
(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\301%\210\310\311\312\313\314\315\316\317&\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\304\"\"\207" [record mapcar #[(mail) "\302 \"\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.
|
|||
|
|
(defalias 'company-bbdb #[(command &optional arg &rest ignore) "\304\305\"\203 \306\307!\207\304\310\"\203* \n>\205F \311\312!\205F \313\314\315 \"\205F \316\317!\207\304\320\"\2035 \321 !\207\304\322\"\203> \323\207\304\324\"\205F \323\207" [command major-mode company-bbdb-modes arg eql interactive company-begin-backend company-bbdb prefix featurep bbdb-com looking-back "^\\(To\\|Cc\\|Bcc\\): *.*? *\\([^,;]*\\)" line-beginning-position match-string-no-properties 2 candidates company-bbdb--candidates sorted t no-cache] 3 (#$ . 1082) (list 'interactive)])
|
|||
|
|
(provide 'company-bbdb)
|