]> crepu.dev Git - config.git/blame_incremental - djavu-asus/emacs/elpa/jabber-20230715.456/jabber-private.elc
Reorganización de directorios
[config.git] / djavu-asus / emacs / elpa / jabber-20230715.456 / jabber-private.elc
... / ...
CommitLineData
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.
9The item to retrieve is identified by NODE-NAME (a symbol) and
10NAMESPACE (a string).
11
12On success, SUCCESS-CALLBACK is called with JC and the retrieved
13XML fragment.
14
15On error, ERROR-CALLBACK is called with JC and the entire IQ
16result.
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.
25SUCCESS-CALLBACK, SUCCESS-CLOSURE-DATA, ERROR-CALLBACK and
26ERROR-CLOSURE-DATA are used as in `jabber-send-iq'.
27
28JC 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)