ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org.el (org-closed-keep-when-no-todo): New option 

* org.el (org-closed-keep-when-no-todo): New option.
(org-todo): Use the new option.

Thanks to Brian van den Broek for asking for this.
This commit is contained in:
Bastien Guerry 2013-04-14 10:52:53 +02:00
parent 2fd5120364
commit d06ecf54f5
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/org.el
View File

@ -853,6 +853,14 @@ Changes become only effective after restarting Emacs."
:group 'org-keywords :group 'org-keywords
:type 'string) :type 'string)
(defcustom org-closed-keep-when-no-todo nil
"Remove CLOSED: time-stamp when switching back to a non-todo state?"
:group 'org-todo
:group 'org-keywords
:version "24.4"
:package-version '(Org . "8.0")
:type 'boolean)
(defconst org-planning-or-clock-line-re (concat "^[ \t]*\\(" (defconst org-planning-or-clock-line-re (concat "^[ \t]*\\("
org-scheduled-string "\\|" org-scheduled-string "\\|"
org-deadline-string "\\|" org-deadline-string "\\|"
@ -12218,7 +12226,7 @@ For calling through lisp, arg is also interpreted in the following way:
(nth 2 (assoc this org-todo-log-states)))) (nth 2 (assoc this org-todo-log-states))))
(if (and (eq dolog 'note) (eq org-inhibit-logging 'note)) (if (and (eq dolog 'note) (eq org-inhibit-logging 'note))
(setq dolog 'time)) (setq dolog 'time))
(when (or (not org-state) (when (or (and (not org-state) (not org-closed-keep-when-no-todo))
(and org-state (and org-state
(member org-state org-not-done-keywords) (member org-state org-not-done-keywords)
(not (member this org-not-done-keywords)))) (not (member this org-not-done-keywords))))