Function: org-fix-position-after-promote

org-fix-position-after-promote is a byte-compiled function defined in org.el.gz.

Signature

(org-fix-position-after-promote)

Documentation

Fix cursor position and indentation after demoting/promoting.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org.el.gz
(defun org-fix-position-after-promote ()
  "Fix cursor position and indentation after demoting/promoting."
  (let ((pos (point)))
    (when (save-excursion
	    (forward-line 0)
	    (let ((case-fold-search nil)) (looking-at org-todo-line-regexp))
	    (or (eq pos (match-end 1)) (eq pos (match-end 2))))
      (cond ((eobp) (insert " "))
	    ((eolp) (insert " "))
	    ((equal (char-after) ?\s) (forward-char 1))))))