Procházet zdrojové kódy

Fix cycling indentation with inline tasks

* org.el (org-current-level): ignore inline tasks when getting current
  level of entry
Nicolas Goaziou před 15 roky
rodič
revize
aa9fbbb323
1 změnil soubory, kde provedl 6 přidání a 5 odebrání
  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.