]>
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 | #@50 Show MSG in Ratpoison | |
9 | ||
10 | (fn TEXT &optional TITLE)\1f | |
11 | (defalias 'jabber-ratpoison-message #[513 "\3011\1a\0\302\18\303\304\302\305\302\306\307\ 6\a\206\14\0\ 6\bP&\ 6)0\207\302\207" [process-connection-type (error) nil call-process "ratpoison" 0 "-c" "echo "] 10 (#$ . 84)]) | |
12 | #@82 Show a message through the Ratpoison window manager | |
13 | ||
14 | (fn FROM BUFFER TEXT TITLE)\1f | |
15 | (defalias 'jabber-message-ratpoison #[1028 "\211\205\b\0\300\ 2\ 2\"\207" [jabber-ratpoison-message] 7 (#$ . 344)]) | |
16 | (byte-code "\300\301\302\301\302N\303\ 1>\203\10\0\211\202\13\0\303\ 1B\262\ 1#\207" [put jabber-alert-message-hooks custom-options jabber-message-ratpoison] 6) | |
17 | #@88 Show a message through the Ratpoison window manager | |
18 | ||
19 | (fn NICK GROUP BUFFER TEXT TITLE)\1f | |
20 | (defalias 'jabber-muc-ratpoison #[1285 "\211\205\b\0\300\ 2\ 2\"\207" [jabber-ratpoison-message] 8 (#$ . 690)]) | |
21 | (byte-code "\300\301\302\301\302N\303\ 1>\203\10\0\211\202\13\0\303\ 1B\262\ 1#\207" [put jabber-alert-muc-hooks custom-options jabber-muc-ratpoison] 6) | |
22 | #@100 Show a message through the Ratpoison window manager | |
23 | ||
24 | (fn WHO OLDSTATUS NEWSTATUS STATUSTEXT TITLE)\1f | |
25 | (defalias 'jabber-presence-ratpoison #[1285 "\211\205\b\0\300\ 2\ 2\"\207" [jabber-ratpoison-message] 8 (#$ . 1031)]) | |
26 | (byte-code "\300\301\302\301\302N\303\ 1>\203\10\0\211\202\13\0\303\ 1B\262\ 1#\207" [put jabber-alert-presence-hooks custom-options jabber-presence-ratpoison] 6) | |
27 | #@80 Show a message through the Ratpoison window manager | |
28 | ||
29 | (fn INFOTYPE BUFFER TEXT)\1f | |
30 | (defalias 'jabber-info-ratpoison #[771 "\211\205\a\0\300\ 1!\207" [jabber-ratpoison-message] 5 (#$ . 1399)]) | |
31 | (byte-code "\300\301\302\301\302N\303\ 1>\203\10\0\211\202\13\0\303\ 1B\262\ 1#\210\304\305!\207" [put jabber-alert-info-message-hooks custom-options jabber-info-ratpoison provide jabber-ratpoison] 6) |