Fix bug in `org-todo'.

s/state/org-state.
2012-04-02 11:27:41 +02:00 · 2012-04-02 11:27:41 +02:00 · e74121b0cc
parent 3658686f59
commit e74121b0cc
1 changed files with 1 additions and 1 deletions
--- a/lisp/org.el
+++ b/lisp/org.el
@ -11322,7 +11322,7 @@ For calling through lisp, arg is also interpreted in the following way:
 			  (car tail))))
 		 (org-state (or
 			     (run-hook-with-args-until-success
-			      'org-todo-get-default-hook state org-last-state)
+			      'org-todo-get-default-hook org-state org-last-state)
 			     org-state))
 		 (next (if org-state (concat " " org-state " ") " "))
 		 (change-plist (list :type 'todo-state-change :from this :to org-state