Function: enriched-insert-indentation

enriched-insert-indentation is a byte-compiled function defined in enriched.el.gz.

Signature

(enriched-insert-indentation &optional FROM TO)

Documentation

Indent and justify each line in the region.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/enriched.el.gz
(defun enriched-insert-indentation (&optional from to)
  "Indent and justify each line in the region."
  (save-excursion
    (save-restriction
      (if to (narrow-to-region (point-min) to))
      (goto-char (or from (point-min)))
      (if (not (bolp)) (forward-line 1))
      (while (not (eobp))
	(if (eolp)
	    nil ; skip blank lines
	  (indent-to (current-left-margin))
	  (justify-current-line t nil t))
	(forward-line 1)))))