* emacs-lisp/timer.el (timer-until): Use time-subtract and float-time.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 93cf3c44033d1aa0e2cb001067f2e1dac2702f9f..db19df1561981ef6de0412dcd5cc56df2b2bcf9b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-07-04  Paul Eggert  <eggert@cs.ucla.edu>
+
+       * emacs-lisp/timer.el (timer-until): Use time-subtract and float-time.
+
 2011-07-04  Juanma Barranquero  <lekktu@gmail.com>
 
        * type-break.el (timep): Use the value of `float-time' to avoid a

diff --git a/lisp/emacs-lisp/timer.el b/lisp/emacs-lisp/timer.el
index 27fd79a6ad2c6c658695b4be07f74d93bbbf6f42..e5d21c351005300c84a24e771a4da2e577f975b4 100644 (file)
--- a/lisp/emacs-lisp/timer.el
+++ b/lisp/emacs-lisp/timer.el
@@ -258,10 +258,7 @@ how many will really happen.")
   "Calculate number of seconds from when TIMER will run, until TIME.
 TIMER is a timer, and stands for the time when its next repeat is scheduled.
 TIME is a time-list."
-  ;; FIXME: (float-time (time-subtract (timer--time timer) time))
-  (let ((high (- (car time) (timer--high-seconds timer)))
-       (low (- (nth 1 time) (timer--low-seconds timer))))
-    (+ low (* high 65536))))
+  (float-time (time-subtract time (timer--time timer))))
 
 (defun timer-event-handler (timer)
   "Call the handler for the timer TIMER.