diff options
author | Bastien Guerry <bzg@altern.org> | 2013-04-12 17:54:43 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-04-12 17:54:43 +0200 |
commit | 02ddc594f2070756f82fe0ac977eb7349418d126 (patch) | |
tree | ba68f4a20e0ac8796c929ea06320ab97ad9a1c8d | |
parent | 62f9c04e5a0ac50eac520250e59c0115b1d98ec8 (diff) | |
download | org-mode-02ddc594f2070756f82fe0ac977eb7349418d126.tar.gz |
org.el (org-todo): Also remove the CLOSED planning information when removing the TODO keyword
* org.el (org-todo): Also remove the CLOSED planning
information when removing the TODO keyword.
Thanks to Samuel Wales for reporting this.
-rw-r--r-- | lisp/org.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/org.el b/lisp/org.el index 5dfa1e0..5e02768 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -12225,9 +12225,10 @@ For calling through lisp, arg is also interpreted in the following way: (nth 2 (assoc this org-todo-log-states)))) (if (and (eq dolog 'note) (eq org-inhibit-logging 'note)) (setq dolog 'time)) - (when (and org-state - (member org-state org-not-done-keywords) - (not (member this org-not-done-keywords))) + (when (or (not org-state) + (and org-state + (member org-state org-not-done-keywords) + (not (member this org-not-done-keywords)))) ;; This is now a todo state and was not one before ;; If there was a CLOSED time stamp, get rid of it. (org-add-planning-info nil nil 'closed)) |