;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (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)#@249 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'. (fn QUERY &optional RETURN-ATTRS) (defalias 'eudc-mab-query-internal #[513 "\302\303!\304!\3058\262\306rq\210\307\301!\210eb\210m\204\"\310 \"\2033\311 \210\312\313\306\314\306\315\316\317\320&\210eb\210m\204\307\321`\322 {\323\"\211@A@\3248\3258\314\326\327\"\203\\\330\331\306\211$\262\n\211\203\234\211@\211@\332=\203~\326A\333\nQ\"\204\225\306\262\202\225\211@\334=\203\222\211A\230\204\225\306\262\202\225\211@\210A\266\202\202^\210\211\203\277\335B\336B\332\333 QB\337B\334B\257B\262\266\306y\210\2026)\204\315\207\306\211\203\211@\306\211\211\203\211@\211@ >\203\371\211AG\340U\203\364\314\262\202\371\211B\262A\266\202\202\330\210\203\211\204B\262\266A\266\202\202\317\210\207" [eudc-contacts-file eudc-buffer-time get-buffer-create " *mab contacts*" file-attributes 5 nil make-local-variable time-less-p erase-buffer call-process "contacts" t "-H" "-l" "-f" "%ln:%fn:%p:%e" split-string line-end-position "\\s-*:\\s-*" 2 3 string-match "\\s-+\\'" replace-match "" name " " email firstname lastname phone 0] 18 (#$ . 583)])#@41 Set the EUDC server to MAB. (fn DUMMY) (defalias 'eudc-mab-set-server #[257 "\300\301\"\210\302\303!\207" [eudc-set-server mab message "MAB server selected"] 4 (#$ . 1914) nil]) (byte-code "\300\301!\210\302\303!\207" [eudc-register-protocol mab provide eudcb-mab] 2)