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

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


(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require jabber-chat jabber-alert cl-lib] 2)
#@41 Maximum number of lines in chat buffer.\1f
(defvar jabber-log-lines-to-keep 1000 (#$ . 182))
#@344 Clean old history from a chat BUFFER.
Optional EWOC is ewoc-widget to work. Default is
`jabber-chat-ewoc'. `jabber-log-lines-to-keep' specifies the
number of lines to keep.

Note that this might interfere with
`jabber-chat-display-more-backlog': you ask for more history, you
get it, and then it just gets deleted.

(fn BUFFER &optional EWOC)\1f
(defalias 'jabber-truncate-top #[513 "\303\18\211\203\n\0\211\202\v\0	\304\ 1\305\ 3\212\ 6\ 6q\210db\210\n[y\210`)\"\"\211\2051\0\304\ 2\ 2\"\306\ 3\ 3\"\210\262\ 1\202\1f\0)\207" [inhibit-read-only jabber-chat-ewoc jabber-log-lines-to-keep t ewoc-prev ewoc-locate ewoc-delete] 8 (#$ . 279) nil])
#@147 Clean old history from MUC buffers.
`jabber-log-lines-to-keep' specifies the number of lines to
keep.

(fn NICK GROUP BUFFER TEXT PROPOSED-ALERT)\1f
(defalias 'jabber-truncate-muc #[1285 "\300\ 3!\207" [jabber-truncate-top] 7 (#$ . 900)])
#@283 Clean old history from chat buffers.
`jabber-log-lines-to-keep' specifies the number of lines to
keep.

Note that this might interfer with
`jabber-chat-display-more-backlog': you ask for more history, you
get it, and then it just gets deleted.

(fn FROM BUFFER TEXT PROPOSED-ALERT)\1f
(defalias 'jabber-truncate-chat #[1028 "\300\ 3!\207" [jabber-truncate-top] 6 (#$ . 1141)])
(provide 'jabber-truncate)
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!\210\300\302!\210\300\303!\207" [require jabber-chat jabber-alert cl-lib] 2)
	9	#@41 Maximum number of lines in chat buffer.\1f
	10	(defvar jabber-log-lines-to-keep 1000 (#$ . 182))
	11	#@344 Clean old history from a chat BUFFER.
	12	Optional EWOC is ewoc-widget to work. Default is
	13	`jabber-chat-ewoc'. `jabber-log-lines-to-keep' specifies the
	14	number of lines to keep.
	15
	16	Note that this might interfere with
	17	`jabber-chat-display-more-backlog': you ask for more history, you
	18	get it, and then it just gets deleted.
	19
	20	(fn BUFFER &optional EWOC)\1f
	21	(defalias 'jabber-truncate-top #[513 "\303\18\211\203\n\0\211\202\v\0 \304\ 1\305\ 3\212\ 6\ 6q\210db\210\n[y\210`)\"\"\211\2051\0\304\ 2\ 2\"\306\ 3\ 3\"\210\262\ 1\202\1f\0)\207" [inhibit-read-only jabber-chat-ewoc jabber-log-lines-to-keep t ewoc-prev ewoc-locate ewoc-delete] 8 (#$ . 279) nil])
	22	#@147 Clean old history from MUC buffers.
	23	`jabber-log-lines-to-keep' specifies the number of lines to
	24	keep.
	25
	26	(fn NICK GROUP BUFFER TEXT PROPOSED-ALERT)\1f
	27	(defalias 'jabber-truncate-muc #[1285 "\300\ 3!\207" [jabber-truncate-top] 7 (#$ . 900)])
	28	#@283 Clean old history from chat buffers.
	29	`jabber-log-lines-to-keep' specifies the number of lines to
	30	keep.
	31
	32	Note that this might interfer with
	33	`jabber-chat-display-more-backlog': you ask for more history, you
	34	get it, and then it just gets deleted.
	35
	36	(fn FROM BUFFER TEXT PROPOSED-ALERT)\1f
	37	(defalias 'jabber-truncate-chat #[1028 "\300\ 3!\207" [jabber-truncate-top] 6 (#$ . 1141)])
	38	(provide 'jabber-truncate)