Function: erc--check-prompt-input-for-excess-lines

erc--check-prompt-input-for-excess-lines is a byte-compiled function defined in erc.el.gz.

Signature

(erc--check-prompt-input-for-excess-lines _ LINES)

Documentation

Return non-nil when trying to send too many LINES.

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc.el.gz
(defun erc--check-prompt-input-for-excess-lines (_ lines)
  "Return non-nil when trying to send too many LINES."
  (when erc-inhibit-multiline-input
    (let ((max (if (eq erc-inhibit-multiline-input t)
                   2
                 erc-inhibit-multiline-input))
          (seen 0)
          last msg)
      (while (and lines (setq last (pop lines)) (< (cl-incf seen) max)))
      (when (= seen max)
        (push last lines)
        (setq msg
              (format "-- exceeded by %d (%d chars)"
                      (length lines)
                      (apply #'+ (mapcar #'length lines))))
        (unless (and erc-ask-about-multiline-input
                     (y-or-n-p (concat "Send input " msg "?")))
          (concat "Too many lines " msg))))))