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

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>.
This commit is contained in:
Nicolas Goaziou 2019-01-30 22:34:30 +01:00
parent 5e47e49832
commit a6adc9831d
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org.el
View File

@ -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))))