Function: erc-truncate--setup

erc-truncate--setup is a byte-compiled function defined in erc-truncate.el.gz.

Signature

(erc-truncate--setup)

Documentation

Enable or disable buffer-local erc-truncate-mode(var)/erc-truncate-mode(fun) modifications.

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc-truncate.el.gz
(defun erc-truncate--setup ()
  "Enable or disable buffer-local `erc-truncate-mode' modifications."
  (if erc-truncate-mode
      (progn
        (when-let* ((priors (or erc--server-reconnecting erc--target-priors))
                    (val (alist-get 'erc-truncate--buffer-size priors)))
          (setq erc-truncate--buffer-size val))
        (add-function :before (local 'erc--clear-function)
                      #'erc-truncate--inhibit-when-local-and-interactive
                      '((depth . 20))))
    (remove-function (local 'erc--clear-function)
                     #'erc-truncate--inhibit-when-local-and-interactive)
    (kill-local-variable 'erc-truncate--buffer-size)))