Browse Source

Use the correct keybinding for org-timer-set-timer.

Also use the new variable `org-timer-last-timer' to fix a bug
in `org-timer-show-remaining-time' about not pick up the right
timer.
Bastien Guerry 11 years ago
parent
commit
d8a0f2949d
3 changed files with 7 additions and 5 deletions
  1. 2 0
      lisp/ChangeLog
  2. 4 4
      lisp/org-timer.el
  3. 1 1
      lisp/org.el

+ 2 - 0
lisp/ChangeLog

@@ -1,5 +1,7 @@
 2009-07-26  Bastien Guerry  <bzg@altern.org>
 
+	* org-timer.el (org-timer-last-timer): New variable.
+
 	* org-agenda.el (org-agenda-mode-map): New key for
 	org-timer-set-timer called from the agenda.
 

+ 4 - 4
lisp/org-timer.el

@@ -256,6 +256,7 @@ VALUE can be `on', `off', or `pause'."
 (defvar org-timer-timer1 nil)
 (defvar org-timer-timer2 nil)
 (defvar org-timer-timer3 nil)
+(defvar org-timer-last-timer nil)
 
 (defun org-timer-reset-timers ()
   "Reset all timers."
@@ -278,9 +279,7 @@ VALUE can be `on', `off', or `pause'."
 	   (not org-timer-timer3))
       (message "No timer set")
     (let* ((rtime (decode-time
-		   (time-subtract (timer--time (or org-timer-timer3
-						   org-timer-timer2
-						   org-timer-timer1))
+		   (time-subtract (timer--time org-timer-last-timer)
 				  (current-time))))
 	   (rsecs (nth 0 rtime))
 	   (rmins (nth 1 rtime)))
@@ -315,7 +314,8 @@ VALUE can be `on', `off', or `pause'."
 		    (setq timer-set t
 			  timer
 			  (run-with-timer secs nil 'org-show-notification
-					  (format "%s: time out" hl)))))
+					  (format "%s: time out" hl))
+			  org-timer-last-timer timer)))
 	      '(org-timer-timer1
 		org-timer-timer2
 		org-timer-timer3)))))

+ 1 - 1
lisp/org.el

@@ -13998,7 +13998,7 @@ The images can be removed again with \\[org-ctrl-c-ctrl-c]."
 (org-defkey org-mode-map "\C-c\C-xp"    'org-set-property)
 (org-defkey org-mode-map "\C-c\C-xo"    'org-toggle-ordered-property)
 (org-defkey org-mode-map "\C-c\C-xi"    'org-insert-columns-dblock)
-(org-defkey org-mode-map [(control ?c) (control ?x) (control ?\;)] 'org-timer-set-timer)
+(org-defkey org-mode-map [(control ?c) (control ?x) ?\;] 'org-timer-set-timer)
 
 (org-defkey org-mode-map "\C-c\C-x."    'org-timer)
 (org-defkey org-mode-map "\C-c\C-x-"    'org-timer-item)