;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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'ebdb-com) #@47 Return a list of all records in the database. (defalias 'ebdb-helm-candidates #[0 "\302\303\304\211\204 \305 \210\203&\306\307\310\311\312\313\"\314\"\315\316% \"\266\202\202) \266\202\"\207" [ebdb-db-list ebdb-record-tracker mapcar #[257 "\301!\302\303\"\304!>\204\305\306\307D\"\210\211\310H\262\211\205$\311\312\313#\211\203/\314Q\2020B\207" [cl-struct-ebdb-record-cache-tags ebdb-string slot-value cache type-of signal wrong-type-argument ebdb-record-cache 5 mapconcat identity " " " => "] 7 "\n\n(fn REC)"] nil ebdb-load seq-filter make-byte-code 257 "\301\203 \302\300\"\207\303\300\"\207" vconcat vector [object-of-class-p same-class-p] 4 "\n\n(fn R)"] 12 (#$ . 428)]) #@46 Display marked candidate(s). (fn CANDIDATE) (defalias 'ebdb-helm-display-records #[257 "\301\302 \303\211\304\303\305\306\"&\207" [ebdb-buffer-name ebdb-display-records helm-marked-candidates nil t format "*%s*"] 10 (#$ . 1138)]) #@54 Compose mail to marked candidate(s). (fn CANDIDATE) (defalias 'ebdb-helm-compose-mail #[257 "\301\302 \303#\207" [current-prefix-arg ebdb-mail helm-marked-candidates nil] 5 (#$ . 1377)]) #@77 Insert mode-appropriate "Name " string candidate(s). (fn CANDIDATE) (defalias 'ebdb-helm-cite-records #[257 "\301\302 \"\207" [current-prefix-arg ebdb-cite-records helm-marked-candidates] 4 (#$ . 1572)]) (defvar helm-source-ebdb '((name . "EBDB") (candidates . ebdb-helm-candidates) (action ("Display" . ebdb-helm-display-records) ("Send mail" . ebdb-helm-compose-mail) ("Insert name and address" . ebdb-helm-cite-records)))) #@32 Preconfigured `helm' for EBDB. (defalias 'ebdb-helm #[0 "\300\301\302\"\207" [helm-other-buffer helm-source-ebdb "*helm ebdb*"] 3 (#$ . 2013) nil]) (provide 'helm-ebdb)