[Orgmode] Re: Bug in org-inlinetask - was: Re: Feature suggestion: highlights

[Sebastian Rose]

This patch fixes the odd odd/even behaviour. I.e., it makes
`org-inlinetask-insert-task' regard `org-odd-levels-only'.


Diffed against `origin/master':


diff --git a/lisp/org-inlinetask.el b/lisp/org-inlinetask.el
index aac338b..46a7a7e 100644
--- a/lisp/org-inlinetask.el
+++ b/lisp/org-inlinetask.el
@@ -109,9 +109,13 @@ When nil, they will not be exported."
   "Insert an inline task."
   (interactive)
   (or (bolp) (newline))
-  (insert (make-string org-inlinetask-min-level ?*) " \n"
-         (make-string org-inlinetask-min-level ?*) " END\n")
+  (let ((indent org-inlinetask-min-level))
+    (if org-odd-levels-only
+        (setq indent (- (* 2 indent) 1)))
+    (insert (make-string indent ?*) " \n"
+            (make-string indent ?*) " END\n"))
   (end-of-line -1))
+
 (define-key org-mode-map "\C-c\C-xt" 'org-inlinetask-insert-task)
 
 (defvar htmlp)  ; dynamically scoped into the next function


Diffed against branch `remove-compatibility-code':

diff --git a/lisp/org-inlinetask.el b/lisp/org-inlinetask.el
index aac338b..6c4e397 100644
--- a/lisp/org-inlinetask.el
+++ b/lisp/org-inlinetask.el
@@ -109,8 +109,11 @@ When nil, they will not be exported."
   "Insert an inline task."
   (interactive)
   (or (bolp) (newline))
-  (insert (make-string org-inlinetask-min-level ?*) " \n"
-         (make-string org-inlinetask-min-level ?*) " END\n")
+  (let ((indent org-inlinetask-min-level))
+    (if org-odd-levels-only
+        (setq indent (- (* 2 indent) 1)))
+    (insert (make-string indent ?*) " \n"
+            (make-string indent ?*) " END\n"))
   (end-of-line -1))
 (define-key org-mode-map "\C-c\C-xt" 'org-inlinetask-insert-task)
 



   Sebastian