|
Server IP : 111.118.215.189 / Your IP : 3.144.113.235 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/net/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:31 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/net/eudcb-mab.el
;;; in Emacs version 24.3.1
;;; 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\313 r q\210\314\305!\210eb\210m\204$ \315
\n\"\2037 \316 \210\317\320\321!\313\322\313\323\324\325\f&\210\neb\210m\204\353 \326`\327 {\330\"\211 &@ #&A@ \"\331&8 $\332&8 '\322 (\333\334'\"\203q \335\336\313\211'$')\313 *\211 +\203\300 +@\211*@\337=\203\234 \333*A\"\340#Q\"\204\267 \313(\202\267 *@\341=\203\263 *A'\230\204\267 \313(\202\267 *@\210+A\211+\204| *(\203\343 \342\"B\343#B\337\"\340#QB\344$B\341'B\257 B.\313y\210\202: ),\204\365 \202d\313 - \313 .\211 +\203`+@.\313\211 / 0.\313 1\211 +\203D+@\2111@,>\203;1AG\345U\2034\322/\202;10B0+A\211+\204*0\203V/\204V0-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*" 5 file-attributes nil make-local-variable time-less-p erase-buffer call-process executable-find "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 (#$ . 1056)])
#@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 (#$ . 2536) nil])
(byte-code "\300\301!\210\302\303!\207" [eudc-register-protocol mab provide eudcb-mab] 2)