| | 1 | ;ELC\1c\0\0\0 |
| | 2 | ;;; Compiled |
| | 3 | ;;; in Emacs version 28.2 |
| | 4 | ;;; with all optimizations. |
| | 5 | |
| | 6 | |
| | 7 | |
| | 8 | (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307B\"\207" [require jabber-iq jabber-xml jabber-util add-to-list jabber-jid-info-menu "Send browse query" jabber-get-browse] 4) |
| | 9 | #@87 Send a browse infoquery request to someone. |
| | 10 | |
| | 11 | JC is the Jabber connection. |
| | 12 | |
| | 13 | (fn JC TO)\1f |
| | 14 | (defalias 'jabber-get-browse #[514 "\300\ 2\ 2\301\302\303\304\303\305&\b\207" [jabber-send-iq "get" (query ((xmlns . "jabber:iq:browse"))) jabber-process-data jabber-process-browse "Browse failed"] 11 (#$ . 277) (byte-code "\300 \301\302\303\211\211\211\304&\ 6D\207" [jabber-read-account jabber-read-jid-completing "browse: " nil t] 8)]) |
| | 15 | #@189 Handle results from jabber:iq:browse requests. |
| | 16 | |
| | 17 | JC is the Jabber connection. |
| | 18 | XML-DATA is the parsed tree data from the stream (stanzas) |
| | 19 | obtained from `xml-parse-region'. |
| | 20 | |
| | 21 | (fn JC XML-DATA)\1f |
| | 22 | (defalias 'jabber-process-browse #[514 "\211\211AA\211\300\232?\205\f\0\211\266\202\211\205\203\ 1\211@\211<\203|\ 1\211\211<\205!\0\211@\262\ 1\301=\204|\ 1\211\302\ 1:\2053\0\303\ 2\ 2\"\266\202`\ 2\211<\205>\0\211@\262\ 1\304=\204W\0\ 2\305\ 1:\205P\0\303\ 2\ 2\"\266\202\306\230\203c\0\307\310\311\312#\313\261\ 2\210\202\352\0\ 2\211<\205k\0\211@\262\ 1\314=\204\204\0\ 2\305\ 1:\205}\0\303\ 2\ 2\"\266\202\315\230\203\220\0\307\316\311\312#\313\261\ 2\210\202\352\0\ 2\211<\205\230\0\211@\262\ 1\317=\204\261\0\ 2\305\ 1:\205\252\0\303\ 2\ 2\"\266\202\320\230\203\275\0\307\321\311\312#\313\261\ 2\210\202\352\0\ 2\305\ 1:\205\310\0\303\ 2\ 2\"\266\202\211G\322U\203\335\0\ 3\211<\205\331\0\211@\262\ 1\262\ 1\307\323\324\ 3\"\311\312#\313\261\ 2\266\ 2\325\211\203\15\ 1\211@\ 4\ 1@\ 1:\205\375\0\303\ 2\ 2\"\266\202\211G\322V\203\r\ 1\ 1A\ 1\326\261\ 3\210\210\ 1A\266\202\202\353\0\210\327\ 3\301\"\211\203N\ 1\211@\211\211AA\211\300\232?\205,\ 1\211\266\202@;\203G\ 1\330\ 1\211AA\211\300\232?\205@\ 1\211\266\202@\326\261\ 3\210\ 1A\266\202\202\1a\ 1\210\326c\210\331\ 1`\332\ 5$\210\331\ 1`\333\ 6 $\210\ 2\211AA\211\300\232?\205m\ 1\211\266\202@<\203z\ 1\334\ 6\ 6\ 4\"\210\266\ 2\ 1A\266\202\202\ e\0\207" [(("")) ns jid xml-get-attribute-or-nil user category "user" jabber-propertize "$ USER" face jabber-title-medium "\n\n" service "service" "* SERVICE" conference "conference" "@ CONFERENCE" 0 format "! OTHER: %s" ((type . "Type: ") (jid . "JID: ") (name . "Name: ") (version . "Version: ")) "\n" jabber-xml-get-children "Namespace: " put-text-property jabber-jid jabber-account jabber-process-browse] 13 (#$ . 703)]) |
| | 23 | (provide 'jabber-browse) |
projects / config.git / blame_incremental