* emacs-lisp/timer.el (timer--time-less-p): Use time-less-p.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index db19df1561981ef6de0412dcd5cc56df2b2bcf9b..d137c334b07569f3e23af86ae66d10f180fdf3b6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2011-07-04  Paul Eggert  <eggert@cs.ucla.edu>
 
        * emacs-lisp/timer.el (timer-until): Use time-subtract and float-time.
+       (timer--time-less-p): Use time-less-p.
 
 2011-07-04  Juanma Barranquero  <lekktu@gmail.com>
 

diff --git a/lisp/emacs-lisp/timer.el b/lisp/emacs-lisp/timer.el
index e5d21c351005300c84a24e771a4da2e577f975b4..0e007ff71760f364fa9ccc83d9384ed8cce57667 100644 (file)
--- a/lisp/emacs-lisp/timer.el
+++ b/lisp/emacs-lisp/timer.el
@@ -119,14 +119,7 @@ SECS may be either an integer or a floating point number."
 
 (defun timer--time-less-p (t1 t2)
   "Say whether time value T1 is less than time value T2."
-  ;; FIXME just use time-less-p.
-  (destructuring-bind (high1 low1 micro1) (timer--time t1)
-    (destructuring-bind (high2 low2 micro2) (timer--time t2)
-      (or (< high1 high2)
-          (and (= high1 high2)
-               (or (< low1 low2)
-                   (and (= low1 low2)
-                        (< micro1 micro2))))))))
+  (time-less-p (timer--time t1) (timer--time t2)))
 
 (defun timer-inc-time (timer secs &optional usecs)
   "Increment the time set in TIMER by SECS seconds and USECS microseconds.