;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\301%\210\307\310\311\312\306\303\313\314&\210\307\315\304\316\317\320\321\322\306\303\313\323& \207" [require erc custom-declare-group erc-truncate nil "Truncate buffers when they reach a certain size" :group custom-declare-variable erc-max-buffer-size 30000 "Maximum size in chars of each ERC buffer.\nUsed only when auto-truncation is enabled.\n(see `erc-truncate-buffer' and `erc-insert-post-hook')." :type integer erc-truncate-mode "Non-nil if Erc-Truncate mode is enabled.\nSee the `erc-truncate-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `erc-truncate-mode'." :set custom-set-minor-mode :initialize custom-initialize-default boolean] 12) #@386 Toggle ERC truncate mode. With a prefix argument ARG, enable truncate if ARG is positive, and disable it otherwise. If called from Lisp, enable the mode if ARG is omitted or nil. Truncate a query buffer if it gets too large. This prevents the query buffer from getting too large, which can bring any grown Emacs to its knees after a few days worth of tracking heavy-traffic channels. (defalias 'erc-truncate-mode #[(&optional arg) "\304 \305\302 \306=\203\307\302!?\202\310 !\311V\"\210\n\203#\312 \210\202&\313 \210\314\315\307\302!\2032\316\2023\317\"\210\320\321!\203^\322\302!\210\304 \203K\304 \232\203^\323\324\325\307\302!\203Y\326\202Z\327 #\210))\330 \210\307\302!\207" [#1=#:last-message arg erc-truncate-mode local current-message set-default toggle default-value prefix-numeric-value 0 erc-truncate-enable erc-truncate-disable run-hooks erc-truncate-mode-hook erc-truncate-mode-on-hook erc-truncate-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Erc-Truncate mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 1248) (list (or current-prefix-arg 'toggle))]) (defvar erc-truncate-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [erc-truncate-mode-map erc-truncate-mode-hook variable-documentation put "Hook run after entering or leaving `erc-truncate-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode erc-truncate-mode nil boundp] 6) #@27 Enable ERC truncate mode. (defalias 'erc-truncate-enable #[nil "\301\302\303\"\210\304\305\306\307\"\207" [erc-truncate-mode add-to-list erc-modules truncate t add-hook erc-insert-post-hook erc-truncate-buffer] 3 (#$ . 2810) nil]) #@28 Disable ERC truncate mode. (defalias 'erc-truncate-disable #[nil "\302\303\"\304\305\306\307\"\207" [erc-modules erc-truncate-mode delq truncate nil remove-hook erc-insert-post-hook erc-truncate-buffer] 3 (#$ . 3048) nil]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put erc-truncate-mode definition-name truncate erc-truncate-enable erc-truncate-disable] 4) #@170 Truncates the buffer to the size SIZE. If BUFFER is not provided, the current buffer is assumed. The deleted region is logged if `erc-logging-enabled' returns non-nil. (defalias 'erc-truncate-buffer-to-size #[(size &optional buffer) "\204 p\202\306!\204\307\310\"\210\311! \312\\V\205Qrq\210\214~\210\n Z\211b\210\313 \210`\314\304!\203D\f\203D\315!\203D\316 \210\317 \210\320e |\210*\321 *\207" [buffer size erc-insert-marker end erc-enable-logging inhibit-read-only get-buffer error "erc-truncate-buffer-to-size: %S is not a buffer" buffer-size 512 beginning-of-line boundp erc-logging-enabled erc-save-buffer-in-logs buffer-disable-undo t buffer-enable-undo] 4 (#$ . 3451)]) #@112 Truncates the current buffer to `erc-max-buffer-size'. Meant to be used in hooks, like `erc-insert-post-hook'. (defalias 'erc-truncate-buffer #[nil "\301!\207" [erc-max-buffer-size erc-truncate-buffer-to-size] 2 (#$ . 4156) nil]) (provide 'erc-truncate)