Function: archive--fit

archive--fit is a byte-compiled function defined in arc-mode.el.gz.

Signature

(archive--fit STR LEN)

Source Code

;; Defined in /usr/src/emacs/lisp/arc-mode.el.gz
(defun archive--fit (str len)
  (let* ((spaces (- len (string-width str)))
         (pre (/ spaces 2)))
    (if (< spaces 1)
        (substring str 0 len)
      (concat (make-string pre ?\s) str (make-string (- spaces pre) ?\s)))))