diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2010-11-06 17:08:19 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2010-12-06 19:13:09 +0100 |
commit | aa9fbbb323c0752105114729f37b4a651275ba93 (patch) | |
tree | 63dfb9c3eb81ebf0fef515ea0048cd036e7a037d | |
parent | 5bbce0473da8e56e9399a640557f693e83390e39 (diff) | |
download | org-mode-aa9fbbb323c0752105114729f37b4a651275ba93.tar.gz |
Fix cycling indentation with inline tasks
* org.el (org-current-level): ignore inline tasks when getting current
level of entry
-rw-r--r-- | lisp/org.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/org.el b/lisp/org.el index e006c36..e03e9ca 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -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. |