Quellcode durchsuchen

Bug fix.

Patch from Peter Jones.
Carsten Dominik vor 16 Jahren
Ursprung
Commit
78d2d64353
2 geänderte Dateien mit 6 neuen und 1 gelöschten Zeilen
  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)