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

2 files changed, 2 insertions, 8 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index db19df15619..d137c334b07 100644
--- 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 e5d21c35100..0e007ff7176 100644
--- 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.