Function: org-indent-set-line-properties

org-indent-set-line-properties is a byte-compiled function defined in org-indent.el.gz.

Signature

(org-indent-set-line-properties LEVEL INDENTATION &optional HEADING)

Documentation

Set prefix properties on current line an move to next one.

LEVEL is the current level of heading. INDENTATION is the expected indentation when wrapping line.

When optional argument HEADING is non-nil, assume line is at a heading. Moreover, if it is inlinetask, the first star will have org-warning face.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-indent.el.gz
(defun org-indent-set-line-properties (level indentation &optional heading)
  "Set prefix properties on current line an move to next one.

LEVEL is the current level of heading.  INDENTATION is the
expected indentation when wrapping line.

When optional argument HEADING is non-nil, assume line is at
a heading.  Moreover, if it is `inlinetask', the first star will
have `org-warning' face."
  (let* ((line (aref (pcase heading
		       (`nil org-indent--text-line-prefixes)
		       (`inlinetask org-indent--inlinetask-line-prefixes)
		       (_ org-indent--heading-line-prefixes))
		     level))
	 (wrap
	  (org-add-props
	      (concat line
		      (if heading (concat (make-string level ?*) " ")
			(make-string indentation ?\s)))
	      nil 'face 'org-indent)))
    ;; Add properties down to the next line to indent empty lines.
    (add-text-properties (line-beginning-position) (line-beginning-position 2)
			 `(line-prefix ,line wrap-prefix ,wrap)))
  (forward-line))