summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2010-11-06 17:08:19 +0100
committerNicolas Goaziou <n.goaziou@gmail.com>2010-12-06 19:13:09 +0100
commitaa9fbbb323c0752105114729f37b4a651275ba93 (patch)
tree63dfb9c3eb81ebf0fef515ea0048cd036e7a037d
parent5bbce0473da8e56e9399a640557f693e83390e39 (diff)
downloadorg-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.el11
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.