mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-21 01:48:57 +00:00
Code Releases Activity

org.el: Fix bug in `org-todo'.

Browse source 
* org.el (org-todo): Fix bug in `org-todo'.

Thanks to Moritz Ulrich for this patch.
This commit is contained in:
Bastien Guerry 2012-04-01 20:35:21 +02:00
parent da0e6fbde1
commit 560cbe1c38
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/org.el
View file

@ -11256,7 +11256,7 @@ For calling through lisp, arg is also interpreted in the following way:
(interpret (nth 1 ass))
(done-word (nth 3 ass))
(final-done-word (nth 4 ass))
(last-state (or this ""))
(org-last-state (or this ""))
(completion-ignore-case t)
(member (member this org-todo-keywords-1))
(tail (cdr member))
@ -11322,7 +11322,7 @@ For calling through lisp, arg is also interpreted in the following way:
(car tail))))
(state (or
(run-hook-with-args-until-success
'org-todo-get-default-hook state last-state)
'org-todo-get-default-hook state org-last-state)
state))
(next (if state (concat " " state " ") " "))
(change-plist (list :type 'todo-state-change :from this :to state