diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2011-07-03 23:25:23 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2011-07-03 23:25:23 -0700 |
| commit | 08235028a6a355a4b4afe993ac0939137aae5976 (patch) | |
| tree | d443ba00bb4bb511c54f96b525a8d23292f8862e /lisp/emacs-lisp | |
| parent | f34755dce2262f4f7e9d692fe985f03051519cb4 (diff) | |
| download | emacs-08235028a6a355a4b4afe993ac0939137aae5976.tar.gz emacs-08235028a6a355a4b4afe993ac0939137aae5976.tar.bz2 emacs-08235028a6a355a4b4afe993ac0939137aae5976.zip | |
* emacs-lisp/timer.el (timer--time-less-p): Use time-less-p.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/timer.el | 9 |
1 files changed, 1 insertions, 8 deletions
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. |