Function: erc-fill-static

erc-fill-static is a byte-compiled function defined in erc-fill.el.gz.

Signature

(erc-fill-static)

Documentation

Fills a text such that messages start at column erc-fill-static-center.

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc-fill.el.gz
(defun erc-fill-static ()
  "Fills a text such that messages start at column `erc-fill-static-center'."
  (save-restriction
    (goto-char (point-min))
    (when-let* (((looking-at "^\\(\\S-+\\)"))
                ((not (erc--check-msg-prop 'erc--msg 'datestamp)))
                (nick (match-string 1)))
      (progn
        (let ((fill-column (- erc-fill-column (erc-timestamp-offset)))
              (fill-prefix (make-string erc-fill-static-center 32)))
          (insert (make-string (max 0 (- erc-fill-static-center
                                         (length nick) 1))
                               32))
          (erc-fill-regarding-timestamp))
        (erc-restore-text-properties)))))