| 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\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) | |
| 16 | (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]) | |
| 17 | #@45 `company-mode' completion backend for BBDB. | |
| 18 | (defalias 'company-bbdb #[(command &optional arg &rest ignore) "\304\267\202* \305\306!\207 \n>\205+ \307\310!\205+ \311\312\313 \"\205+ \314\315!\207\316 !\207\317\207\317\207\320\207" [command major-mode company-bbdb-modes arg #s(hash-table size 5 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (interactive 6 prefix 10 candidates 34 sorted 38 no-cache 40)) company-begin-backend company-bbdb featurep bbdb-com looking-back "^\\(To\\|Cc\\|Bcc\\): *.*? *\\([^,;]*\\)" line-beginning-position match-string-no-properties 2 company-bbdb--candidates t nil] 3 (#$ . 1082) (list 'interactive)]) | |
| 19 | (provide 'company-bbdb) | |
