diff options
author | Bastien Guerry <bzg@altern.org> | 2012-04-01 20:35:21 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-04-01 20:35:21 +0200 |
commit | 560cbe1c3821267d60d52985bf88ab6062a6109c (patch) | |
tree | 618fe2d2311244d55b1d8c55363e188583366246 | |
parent | da0e6fbde1b1d538171629d59d4397263ae2e2b3 (diff) | |
download | org-mode-560cbe1c3821267d60d52985bf88ab6062a6109c.tar.gz |
org.el: Fix bug in `org-todo'.
* org.el (org-todo): Fix bug in `org-todo'.
Thanks to Moritz Ulrich for this patch.
-rw-r--r-- | lisp/org.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org.el b/lisp/org.el index 85d8d1e..c3e9246 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -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 |