|
@@ -2205,7 +2205,7 @@ can work correctly."
|
|
;; This is a subtree, we take the title from the first heading
|
|
;; This is a subtree, we take the title from the first heading
|
|
(goto-char rbeg)
|
|
(goto-char rbeg)
|
|
(looking-at org-todo-line-tags-regexp)
|
|
(looking-at org-todo-line-tags-regexp)
|
|
- (setq title (if (eq tags t)
|
|
|
|
|
|
+ (setq title (if (and (eq tags t) (match-string 4))
|
|
(format "%s\t%s" (match-string 3) (match-string 4))
|
|
(format "%s\t%s" (match-string 3) (match-string 4))
|
|
(match-string 3)))
|
|
(match-string 3)))
|
|
(org-unmodified
|
|
(org-unmodified
|