Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/net/eudcb-mab.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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!\207" [require eudc executable] 2)
(defvar eudc-mab-conversion-alist nil)
(defvar eudc-buffer-time nil)
(defvar eudc-contacts-file "~/Library/Application Support/AddressBook/AddressBook.data")
(byte-code "\300\301\302\303#\210\300\304\305\303#\210\300\306\305\303#\210\300\307\305\303#\207" [eudc-protocol-set eudc-query-function eudc-mab-query-internal mab eudc-list-attributes-function nil eudc-mab-conversion-alist eudc-protocol-has-default-query-attributes] 4)
#@214 Query MAB  with QUERY.
QUERY is a list of cons cells (ATTR . VALUE) where ATTRs should be valid
MAB attribute names.
RETURN-ATTRS is a list of attributes to return, defaulting to
`eudc-default-return-attributes'.
(defalias 'eudc-mab-query-internal #[(query &optional return-attrs) "\306\307\310!\311!\312
8\262
\313rq\210\314\305!\210eb\210m\204'\315
\n\"\2038\316 \210\317\320\313\321\313\322\323\324\f&\210\neb\210m\204\354\325`\326 {\327\"\211%@\"%A@!\330%8#\331%8&\321'\332\333&\"\203r\334\335\313\211&$&(\313)\211*\203\301*@\211)@\336=\203\235\332)A!\337\"Q\"\204\270\313'\202\270)@\340=\203\264)A&\230\204\270\313'\202\270)@\210*A\211*\204}*'\203\344\341!B\342\"B\336!\337\"QB\343#B\340&B\257	B.\313y\210\202;)+\204\366	\202e
\313,	\313-\211*\203a
*@-\313\211./-\3130\211*\203E
*@\2110@+>\203<
0AG\344U\2035
\321.\202<
0/B/*A\211*\204
*/\203W
.\204W
/,B,**A\211*\204
*,),\207" [eudc-contacts-file result modified mab-buffer fmt-string eudc-buffer-time "%ln:%fn:%p:%e" get-buffer-create " *mab contacts*" file-attributes 5 nil make-local-variable time-less-p erase-buffer call-process "contacts" t "-H" "-l" "-f" split-string line-end-position "\\s-*:\\s-*" 2 3 string-match "\\s-+\\'" replace-match "" name " " email firstname lastname phone 0 args mail matched query term --dolist-tail-- return-attrs eudc-result entry abort entry-attrs attr] 10 (#$ . 908)])
#@29 Set the EUDC server to MAB.
(defalias 'eudc-mab-set-server #[(dummy) "\301\302\"\210\303\304!\207" [dummy eudc-set-server mab message "MAB server selected"] 3 (#$ . 2372) nil])
(byte-code "\300\301!\210\302\303!\207" [eudc-register-protocol mab provide eudcb-mab] 2)