ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/org.el
View File

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