Function: shr-fill-lines

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

Signature

(shr-fill-lines START END)

Source Code

;; Defined in /usr/src/emacs/lisp/net/shr.el.gz
(defun shr-fill-lines (start end)
  (if (<= shr-internal-width 0)
      nil
    (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)))))