;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) #@55 Select EBDB contacts using the ivy/counsel interface. (defalias 'ebdb-counsel #[0 "\302\303\304\305\306\211\204 \307 \210\203(\310\311\312\313\314\315\"\316\"\317\320% \"\266\202\202+ \266\202\"\321\322$\207" [ebdb-db-list ebdb-record-tracker ivy-read "Records: " 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)" :action (1 ("o" (lambda (r) (ebdb-display-records (list (cdr r)) nil t)) "display") ("m" (lambda (r) (ebdb-mail (cdr r))) "send mail") ("i" (lambda (r) (ebdb-cite-records-mail (cdr r))) "insert"))] 14 (#$ . 424) nil]) (provide 'ebdb-counsel)