crepu.dev Git - config.git/blame_incremental - djavu-asus/elpa/jabber-20230715.456/jabber-screen.elc

... / ...

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	#@47 Show MSG in screen
	9
	10	(fn TEXT &optional TITLE)\1f
	11	(defalias 'jabber-screen-message #[513 "\300\301\302\211\211\303\304\ 6\a\206\ e\0\ 6\b&\a\207" [call-process "screen" nil "-X" "echo"] 10 (#$ . 84)])
	12	#@81 Show a message through the Screen terminal manager
	13
	14	(fn FROM BUFFER TEXT TITLE)\1f
	15	(defalias 'jabber-message-screen #[1028 "\211\205\b\0\300\ 2\ 2\"\207" [jabber-screen-message] 7 (#$ . 277)])
	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-screen] 6)
	17	#@87 Show a message through the Screen terminal manager
	18
	19	(fn NICK GROUP BUFFER TEXT TITLE)\1f
	20	(defalias 'jabber-muc-screen #[1285 "\211\205\b\0\300\ 2\ 2\"\207" [jabber-screen-message] 8 (#$ . 613)])
	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-screen] 6)
	22	#@99 Show a message through the Screen terminal manager
	23
	24	(fn WHO OLDSTATUS NEWSTATUS STATUSTEXT TITLE)\1f
	25	(defalias 'jabber-presence-screen #[1285 "\211\205\b\0\300\ 2\ 2\"\207" [jabber-screen-message] 8 (#$ . 943)])
	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-screen] 6)
	27	#@79 Show a message through the Screen terminal manager
	28
	29	(fn INFOTYPE BUFFER TEXT)\1f
	30	(defalias 'jabber-info-screen #[771 "\211\205\a\0\300\ 1!\207" [jabber-screen-message] 5 (#$ . 1300)])
	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-screen provide jabber-screen] 6)