summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2019-01-30 22:34:30 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2019-01-30 22:35:30 +0100
commita6adc9831ddad55a6c6a6779fede7a65d5c80168 (patch)
tree4a99c6c30fc4bbc80dbb6ba501fe48a14e689133
parent5e47e49832be6c685321379c052b6b6282ee62a3 (diff)
downloadorg-mode-a6adc9831ddad55a6c6a6779fede7a65d5c80168.tar.gz
Add new `org-todo-repeat-hook'
* lisp/org.el (org-todo-repeat-hook): New variable. (org-auto-repeat-maybe): Use it. See <http://lists.gnu.org/r/emacs-orgmode/2019-01/msg00102.html>.
-rw-r--r--lisp/org.el6
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/org.el b/lisp/org.el
index cf305e5..f24bca2 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -3133,6 +3133,11 @@ property to one or more of these keywords."
(const :tag "Force recording the DONE state" time)
(const :tag "Force recording a note with the DONE state" note)))
+(defcustom org-todo-repeat-hook nil
+ "Hook that is run after a task has been repeated."
+ :package-version '(Org . "9.2")
+ :group 'org-todo
+ :type 'hook)
(defgroup org-priorities nil
"Priorities in Org mode."
@@ -12876,6 +12881,7 @@ enough to shift date past today. Continue? "
(org-timestamp-change n (cdr (assoc what whata)) nil t))
(setq msg
(concat msg type " " org-last-changed-timestamp " ")))))))
+ (run-hooks 'org-todo-repeat-hook)
(setq org-log-post-message msg)
(message msg))))