]>
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 | (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\a\207" [custom-declare-variable jabber-xmessage-timeout funcall function #[0 "\300\207" [15] 1 ""] "Timeout in seconds for xmessage alerts.\nSet this to nil to have no timeout." :type (choice (integer :tag "Seconds") (const :tag "No timeout" nil)) :group jabber-alerts] 8) | |
9 | #@73 Displays MESSAGE using the xmessage program. | |
10 | ||
11 | (fn TEXT &optional TITLE)\1f | |
12 | (defalias 'jabber-xmessage-display-message #[513 "\302\18 \205\v\0\303\304 !D\305\ 1\ 3\206\12\0\ 4C\"\306\307\310\302\310\ 5%)\207" [process-connection-type jabber-xmessage-timeout nil "-timeout" number-to-string append apply start-process "xmessage"] 10 (#$ . 412)]) | |
13 | #@76 Display a message using the xmessage program. | |
14 | ||
15 | (fn FROM BUFFER TEXT TITLE)\1f | |
16 | (defalias 'jabber-message-xmessage #[1028 "\211\205\b\0\300\ 2\ 2\"\207" [jabber-xmessage-display-message] 7 (#$ . 744)]) | |
17 | (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-xmessage] 6) | |
18 | #@82 Display a message using the xmessage program. | |
19 | ||
20 | (fn NICK GROUP BUFFER TEXT TITLE)\1f | |
21 | (defalias 'jabber-muc-xmessage #[1285 "\211\205\b\0\300\ 2\ 2\"\207" [jabber-xmessage-display-message] 8 (#$ . 1089)]) | |
22 | (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-xmessage] 6) | |
23 | #@94 Display a message using the xmessage program. | |
24 | ||
25 | (fn WHO OLDSTATUS NEWSTATUS STATUSTEXT TITLE)\1f | |
26 | (defalias 'jabber-presence-xmessage #[1285 "\211\205\b\0\300\ 2\ 2\"\207" [jabber-xmessage-display-message] 8 (#$ . 1429)]) | |
27 | (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-xmessage] 6) | |
28 | #@74 Display a message using the xmessage program. | |
29 | ||
30 | (fn INFOTYPE BUFFER TEXT)\1f | |
31 | (defalias 'jabber-info-xmessage #[771 "\211\205\a\0\300\ 1!\207" [jabber-xmessage-display-message] 5 (#$ . 1796)]) | |
32 | (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-xmessage provide jabber-xmessage] 6) |