mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-25 09:41:25 +00:00
Code Releases Activity

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

Browse source 
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> 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 * org-mobile.el (org-mobile-files-alist): Make it work when
`agenda-archives' is included in `agenda-archives' is included in
`org-agenda-text-search-extra-files'. `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")))) (t (error "Not in an Org buffer"))))
timer-set) timer-set)
(mapcar (lambda(timer) (mapcar (lambda(timer)
(if (not (or (eval timer) timer-set)) (when (not (or (eval timer) timer-set))
(setq timer-set t (setq timer-set t)
timer (setq org-timer-last-timer
(run-with-timer (run-with-timer
secs nil 'org-notify (format "%s: time out" hl) t) secs nil 'org-notify (format "%s: time out" hl) t))
org-timer-last-timer timer))) (set timer org-timer-last-timer)))
'(org-timer-timer1 '(org-timer-timer1
org-timer-timer2 org-timer-timer2
org-timer-timer3))))) org-timer-timer3)))))