before these variables were set to nil, and consequently
org-timer-last-timer as well.
---
lisp/org-timer.el | 12 ++++++------
1 files changed, 6 insertions(+), 6 deletions(-)
diff --git a/lisp/org-timer.el b/lisp/org-timer.el
index 8a59c74..660312a 100644
--- a/lisp/org-timer.el
+++ b/lisp/org-timer.el
@@ -312,12 +312,12 @@ VALUE can be `on', `off', or `pause'."
(t (error "Not in an Org buffer"))))
timer-set)
(mapcar (lambda(timer)
- (if (not (or (eval timer) timer-set))
- (setq timer-set t
- timer
- (run-with-timer
- secs nil 'org-notify (format "%s: time out" hl) t)
- org-timer-last-timer timer)))
+ (when (not (or (eval timer) timer-set))
+ (setq timer-set t)
+ (setq org-timer-last-timer
+ (run-with-timer
+ secs nil 'org-notify (format "%s: time out" hl) t))
+ (set timer org-timer-last-timer)))
'(org-timer-timer1
org-timer-timer2
org-timer-timer3)))))
--
1.6.4.4
_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
address@hidden
http://lists.gnu.org/mailman/listinfo/emacs-orgmode