| | 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-sawfish-display-time funcall function #[0 "\300\207" [3] 1 ""] "Time in seconds for displaying a jabber message through the\nSawfish window manager." :type integer :group jabber-alerts] 8) |
| | 9 | #@81 Displays MESSAGE through the Sawfish window manager. |
| | 10 | |
| | 11 | (fn TEXT &optional TITLE)\1f |
| | 12 | (defalias 'jabber-sawfish-display-message #[513 "\302\18\303\304\302\305\ 4\206\v\0\ 5\306\307 !\310\260\ 5#)\207" [process-connection-type jabber-sawfish-display-time nil start-process-shell-command "jabber-sawfish" "echo '(progn (require (quote timers)) (display-message \"" "\")(make-timer (lambda () (display-message nil)) " number-to-string "))' | sawfish-client - &> /dev/null"] 10 (#$ . 367)]) |
| | 13 | #@83 Display a message through the Sawfish window manager |
| | 14 | |
| | 15 | (fn FROM BUFFER TEXT TITLE)\1f |
| | 16 | (defalias 'jabber-message-sawfish #[1028 "\211\205\b\0\300\ 2\ 2\"\207" [jabber-sawfish-display-message] 7 (#$ . 844)]) |
| | 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-sawfish] 6) |
| | 18 | #@89 Display a message through the Sawfish window manager |
| | 19 | |
| | 20 | (fn NICK GROUP BUFFER TEXT TITLE)\1f |
| | 21 | (defalias 'jabber-muc-sawfish #[1285 "\211\205\b\0\300\ 2\ 2\"\207" [jabber-sawfish-display-message] 8 (#$ . 1193)]) |
| | 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-sawfish] 6) |
| | 23 | #@101 Display a message through the Sawfish window manager |
| | 24 | |
| | 25 | (fn WHO OLDSTATUS NEWSTATUS STATUSTEXT TITLE)\1f |
| | 26 | (defalias 'jabber-presence-sawfish #[1285 "\211\205\b\0\300\ 2\ 2\"\207" [jabber-sawfish-display-message] 8 (#$ . 1538)]) |
| | 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-sawfish] 6) |
| | 28 | #@81 Display a message through the Sawfish window manager |
| | 29 | |
| | 30 | (fn INFOTYPE BUFFER TEXT)\1f |
| | 31 | (defalias 'jabber-info-sawfish #[771 "\211\205\a\0\300\ 1!\207" [jabber-sawfish-display-message] 5 (#$ . 1909)]) |
| | 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-sawfish provide jabber-sawfish] 6) |
projects / config.git / blame_incremental