| | 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) |
projects / config.git / blame_incremental