From: Paul Eggert <eggert@cs.ucla.edu>
Date: Mon, 4 Jul 2011 06:25:23 +0000 (-0700)
Subject: * emacs-lisp/timer.el (timer--time-less-p): Use time-less-p.
X-Git-Tag: emacs-pretest-24.0.90~104^2~152^2~205^2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=08235028a6a355a4b4afe993ac0939137aae5976;p=emacs.git

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

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.