]> crepu.dev Git - config.git/blame - djavu-asus/elpa/jabber-20230715.456/jabber-truncate.elc
Actualizado el Readme
[config.git] / djavu-asus / elpa / jabber-20230715.456 / jabber-truncate.elc
CommitLineData
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.
12Optional EWOC is ewoc-widget to work. Default is
13`jabber-chat-ewoc'. `jabber-log-lines-to-keep' specifies the
14number of lines to keep.
15
16Note that this might interfere with
17`jabber-chat-display-more-backlog': you ask for more history, you
18get 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
24keep.
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
30keep.
31
32Note that this might interfer with
33`jabber-chat-display-more-backlog': you ask for more history, you
34get 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)