Browse Source

Fix cycling indentation with inline tasks

* org.el (org-current-level): ignore inline tasks when getting current
  level of entry
Nicolas Goaziou 14 years ago
parent
commit
aa9fbbb323
1 changed files with 6 additions and 5 deletions
  1. 6 5
      lisp/org.el

+ 6 - 5
lisp/org.el

@@ -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
-	(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 ()
 (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.