[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Orgmode] [PATCH 2/2] set variables org-timer-timer[123] correctly
From: |
Stephan Schmitt |
Subject: |
[Orgmode] [PATCH 2/2] set variables org-timer-timer[123] correctly |
Date: |
Thu, 5 Nov 2009 10:57:35 +0100 |
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