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
_______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
