Commit f34755dc authored by Paul Eggert's avatar Paul Eggert

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

parent 3ca74e53
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
......
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment