Function: shr-fill-lines

shr-fill-lines is a byte-compiled function defined in shr.el.gz.

Signature

(shr-fill-lines START END)

Documentation

Indent and fill text from START to END.

When shr-fill-text(var)/shr-fill-text(fun) is nil, only indent.

Source Code

;; Defined in /usr/src/emacs/lisp/net/shr.el.gz
(defun shr-fill-lines (start end)
  "Indent and fill text from START to END.
When `shr-fill-text' is nil, only indent."
  (unless (<= shr-internal-width 0)
    (save-restriction
      (narrow-to-region start end)
      (goto-char start)
      (when (get-text-property (point) 'shr-indentation)
	(shr-fill-line))
      (while (setq start (next-single-property-change start 'shr-indentation))
	(goto-char start)
	(when (bolp)
	  (shr-fill-line)))
      (goto-char (point-max)))))