diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2019-01-30 22:34:30 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2019-01-30 22:35:30 +0100 |
commit | a6adc9831ddad55a6c6a6779fede7a65d5c80168 (patch) | |
tree | 4a99c6c30fc4bbc80dbb6ba501fe48a14e689133 | |
parent | 5e47e49832be6c685321379c052b6b6282ee62a3 (diff) | |
download | org-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.el | 6 |
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)))) |