;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. #@85 Time in seconds for displaying a jabber message through the Sawfish window manager. (custom-declare-variable 'jabber-sawfish-display-time 3 '(#$ . 87) :type 'integer :group 'jabber-alerts) #@54 Displays MESSAGE through the Sawfish window manager. (defalias 'jabber-sawfish-display-message #[(text &optional title) "\304\305\306\304\307\310 \206\f\n\311\312 !\313\260$)\207" [process-connection-type title text 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"] 9 (#$ . 282)]) #@54 Display a message through the Sawfish window manager (defalias 'jabber-message-sawfish #[(from buffer text title) "\205\302 \"\207" [title text jabber-sawfish-display-message] 3 (#$ . 769)]) (byte-code "\301\302\303\302\303N\304>\203\202\304B)#\207" [#:vlist put jabber-alert-message-hooks custom-options jabber-message-sawfish] 5) #@54 Display a message through the Sawfish window manager (defalias 'jabber-muc-sawfish #[(nick group buffer text title) "\205\302 \"\207" [title text jabber-sawfish-display-message] 3 (#$ . 1119)]) (byte-code "\301\302\303\302\303N\304>\203\202\304B)#\207" [#:vlist put jabber-alert-muc-hooks custom-options jabber-muc-sawfish] 5) #@54 Display a message through the Sawfish window manager (defalias 'jabber-presence-sawfish #[(who oldstatus newstatus statustext title) "\205\302 \"\207" [title statustext jabber-sawfish-display-message] 3 (#$ . 1464)]) (byte-code "\301\302\303\302\303N\304>\203\202\304B)#\207" [#:vlist put jabber-alert-presence-hooks custom-options jabber-presence-sawfish] 5) #@54 Display a message through the Sawfish window manager (defalias 'jabber-info-sawfish #[(infotype buffer text) "\205\301!\207" [text jabber-sawfish-display-message] 2 (#$ . 1842)]) (byte-code "\301\302\303\302\303N\304>\203\202\304B)#\210\305\306!\207" [#:vlist put jabber-alert-info-message-hooks custom-options jabber-info-sawfish provide jabber-sawfish] 5)