]>
Commit | Line | Data |
---|---|---|
1 | ;ELC\1c\0\0\0 | |
2 | ;;; Compiled | |
3 | ;;; in Emacs version 28.2 | |
4 | ;;; with all optimizations. | |
5 | ||
6 | ||
7 | ||
8 | #@340 Retrieve an item from private XML storage. | |
9 | The item to retrieve is identified by NODE-NAME (a symbol) and | |
10 | NAMESPACE (a string). | |
11 | ||
12 | On success, SUCCESS-CALLBACK is called with JC and the retrieved | |
13 | XML fragment. | |
14 | ||
15 | On error, ERROR-CALLBACK is called with JC and the entire IQ | |
16 | result. | |
17 | ||
18 | (fn JC NODE-NAME NAMESPACE SUCCESS-CALLBACK ERROR-CALLBACK)\1f | |
19 | (defalias 'jabber-private-get #[1285 "\300\ 5\301\302\303\304\ 6 \305\ 6\nBCDE\306\ 6\a\307\ 6\b&\b\207" [jabber-send-iq nil "get" query ((xmlns . "jabber:iq:private")) xmlns jabber-private-get-1 #[771 "\211\ 3\ 3\"\207" [] 6 "\n\n(fn JC XML-DATA ERROR-CALLBACK)"]] 14 (#$ . 85)]) | |
20 | #@37 | |
21 | ||
22 | (fn JC XML-DATA SUCCESS-CALLBACK)\1f | |
23 | (defalias 'jabber-private-get-1 #[771 "\211\ 3\300\ 4!\211AA\211\301\232?\205\10\0\211\266\202@\"\207" [jabber-iq-query ((""))] 9 (#$ . 694)]) | |
24 | #@281 Store FRAGMENT in private XML storage. | |
25 | SUCCESS-CALLBACK, SUCCESS-CLOSURE-DATA, ERROR-CALLBACK and | |
26 | ERROR-CLOSURE-DATA are used as in `jabber-send-iq'. | |
27 | ||
28 | JC is the Jabber connection. | |
29 | ||
30 | (fn JC FRAGMENT &optional SUCCESS-CALLBACK SUCCESS-CLOSURE-DATA ERROR-CALLBACK ERROR-CLOSURE-DATA)\1f | |
31 | (defalias 'jabber-private-set #[1538 "\300\ 6\ 6\301\302\303\304\ 6\nE\ 6\b\ 6\b\ 6\b\ 6\b&\b\207" [jabber-send-iq nil "set" query ((xmlns . "jabber:iq:private"))] 15 (#$ . 873)]) | |
32 | (provide 'jabber-private) |