[config.git] / djavu-asus / elpa / jabber-20230715.456 / jabber-sawfish.elc

;ELC\1c\0\0\0
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.


(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)
#@81 Displays MESSAGE through the Sawfish window manager.

(fn TEXT &optional TITLE)\1f
(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)])
#@83 Display a message through the Sawfish window manager

(fn FROM BUFFER TEXT TITLE)\1f
(defalias 'jabber-message-sawfish #[1028 "\211\205\b\0\300\ 2\ 2\"\207" [jabber-sawfish-display-message] 7 (#$ . 844)])
(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)
#@89 Display a message through the Sawfish window manager

(fn NICK GROUP BUFFER TEXT TITLE)\1f
(defalias 'jabber-muc-sawfish #[1285 "\211\205\b\0\300\ 2\ 2\"\207" [jabber-sawfish-display-message] 8 (#$ . 1193)])
(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)
#@101 Display a message through the Sawfish window manager

(fn WHO OLDSTATUS NEWSTATUS STATUSTEXT TITLE)\1f
(defalias 'jabber-presence-sawfish #[1285 "\211\205\b\0\300\ 2\ 2\"\207" [jabber-sawfish-display-message] 8 (#$ . 1538)])
(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)
#@81 Display a message through the Sawfish window manager

(fn INFOTYPE BUFFER TEXT)\1f
(defalias 'jabber-info-sawfish #[771 "\211\205\a\0\300\ 1!\207" [jabber-sawfish-display-message] 5 (#$ . 1909)])
(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)
Commit	Line	Data
53e6db90 DC	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)