mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

Set variables org-timer-timer[123] correctly. 

Patch by Stephan Schmitt
This commit is contained in:
Carsten Dominik 2009-11-05 16:11:57 +01:00
parent f90f96bc29
commit 1962a53c80
2 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,5 +1,9 @@
2009-11-05 Carsten Dominik <carsten.dominik@gmail.com>
* org-timer.el (org-timer-set-timer): Set variables
org-timer-timer[123] correctly.
* org-mobile.el (org-mobile-files-alist): Make it work when
`agenda-archives' is included in
`org-agenda-text-search-extra-files'.

12
lisp/org-timer.el
View File

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