# HG changeset patch # User Glenn Morris # Date 1251861438 0 # Node ID 84caf35eb99a59e58ae7dd0d3f465af98415ecc7 # Parent e5f506a6a59d22120ba9fdd199075064812cadd0 Comment. diff -r e5f506a6a59d -r 84caf35eb99a lisp/emacs-lisp/timer.el --- a/lisp/emacs-lisp/timer.el Wed Sep 02 03:11:15 2009 +0000 +++ b/lisp/emacs-lisp/timer.el Wed Sep 02 03:17:18 2009 +0000 @@ -1,7 +1,7 @@ ;;; timer.el --- run a function with args at some time in future -;; Copyright (C) 1996, 2001, 2002, 2003, 2004, 2005, -;; 2006, 2007, 2008, 2009 Free Software Foundation, Inc. +;; Copyright (C) 1996, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, +;; 2009 Free Software Foundation, Inc. ;; Maintainer: FSF @@ -284,7 +284,7 @@ "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: (time-to-seconds (time-subtract (timer--time timer) time)) + ;; 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))))