Browse Source

Bug fix.

Patch from Peter Jones.
Carsten Dominik 17 years ago
parent
commit
78d2d64353
2 changed files with 6 additions and 1 deletions
  1. 5 0
      lisp/ChangeLog
  2. 1 1
      lisp/org.el

+ 5 - 0
lisp/ChangeLog

@@ -1,3 +1,8 @@
+2008-10-23  Carsten Dominik  <dominik@science.uva.nl>
+
+	* org.el (org-insert-todo-heading): Fix bug with force-heading
+	argument.
+
 2008-10-22  Carsten Dominik  <dominik@science.uva.nl>
 2008-10-22  Carsten Dominik  <dominik@science.uva.nl>
 
 
 	* org-exp.el (org-export-as-ascii): Handle the case that we are
 	* org-exp.el (org-export-as-ascii): Handle the case that we are

+ 1 - 1
lisp/org.el

@@ -4694,7 +4694,7 @@ but create the new hedline after the current line."
 If the heading has no TODO state, or if the state is DONE, use the first
 If the heading has no TODO state, or if the state is DONE, use the first
 state (TODO by default).  Also with prefix arg, force first state."
 state (TODO by default).  Also with prefix arg, force first state."
   (interactive "P")
   (interactive "P")
-  (when (not (org-insert-item 'checkbox))
+  (when (or force-heading (not (org-insert-item 'checkbox)))
     (org-insert-heading force-heading)
     (org-insert-heading force-heading)
     (save-excursion
     (save-excursion
       (org-back-to-heading)
       (org-back-to-heading)