diff options
| author | Carsten Dominik <carsten.dominik@gmail.com> | 2010-10-15 07:51:54 +0200 |
|---|---|---|
| committer | Carsten Dominik <carsten.dominik@gmail.com> | 2010-10-15 07:51:54 +0200 |
| commit | bf8d076bb5d77d3caf891aaf1cb2e2aed021693f (patch) | |
| tree | 8a45b28ddbe7cc4600a31ad1d642a721d2d42b13 | |
| parent | 03cbc9fc28f5ba592b3bea67968539033b67c2aa (diff) | |
| download | org-mode-bf8d076bb5d77d3caf891aaf1cb2e2aed021693f.tar.gz | |
When on the headline of an inline task, insert another inline tasks
* lisp/org.el (org-insert-heading): When on the headline of an inline
task, insert another inline tasks.
| -rw-r--r-- | lisp/org.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el index c1ca9a6..e4f08e2 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -6697,11 +6697,13 @@ This is important for non-interactive uses of the command." (when (or force-heading (not (org-insert-item))) (let* ((empty-line-p nil) (level nil) + (on-heading (org-on-heading-p)) (head (save-excursion (condition-case nil (progn (org-back-to-heading invisible-ok) - (when (and (featurep 'org-inlinetask) + (when (and (not on-heading) + (featurep 'org-inlinetask) (integerp org-inlinetask-min-level) (>= (length (match-string 0)) org-inlinetask-min-level)) |