emacs-orgmode
[Top][All Lists]
Advanced

[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





reply via email to

[Prev in Thread] Current Thread [Next in Thread]