Fix cycling indentation with inline tasks

* org.el (org-current-level): ignore inline tasks when getting current
  level of entry
This commit is contained in:
Nicolas Goaziou 2010-11-06 17:08:19 +01:00
parent 5bbce0473d
commit aa9fbbb323
1 changed files with 6 additions and 5 deletions

View File

@ -7020,11 +7020,12 @@ in the region."
"Return the level of the current entry, or nil if before the first headline.
The level is the number of stars at the beginning of the headline."
(save-excursion
(condition-case nil
(progn
(org-back-to-heading t)
(funcall outline-level))
(error nil))))
(let ((outline-regexp (org-get-limited-outline-regexp)))
(condition-case nil
(progn
(org-back-to-heading t)
(funcall outline-level))
(error nil)))))
(defun org-get-previous-line-level ()
"Return the outline depth of the last headline before the current line.