tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

One more hook in org-timer.el

Browse source
This commit is contained in:
Carsten Dominik 2010-02-20 20:31:44 +01:00
parent 33740c5833
commit 91f5139273
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/org-timer.el
View file

@ -60,6 +60,9 @@ the value of the relative timer."
(defvar org-timer-set-hook nil
"Hook run after countdown timer is set.")
(defvar org-timer-done-hook nil
"Hook run after countdown timer reaches zero.")
(defvar org-timer-cancel-hook nil
"Hook run before countdown timer is canceled.")
@ -335,7 +338,9 @@ VALUE can be `on', `off', or `pause'."
(setq timer-set t)
(setq org-timer-last-timer
(run-with-timer
secs nil 'org-notify (format "%s: time out" hl) t))
secs nil '(lambda ()
(org-notify (format "%s: time out" hl) t)
(run-hooks 'org-timer-done-hook))))
(set timer org-timer-last-timer)
(run-hooks 'org-timer-set-hook)))
'(org-timer-timer1