# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 985794647 0
# Node ID a9b2639dd045e8fa6ee593dbb5ce7325b45d2643
# Parent  686398a0f5e0cf4cad6d2418234dd5be5eb8d0ac
(Ffloat_time): Fix off-by-factor-of-10 bug in the
microseconds calcuation.  Avoid double-rounding problem.
In doc string, warn that the result is approximate.

diff -r 686398a0f5e0 -r a9b2639dd045 src/editfns.c
--- a/src/editfns.c	Wed Mar 28 15:34:38 2001 +0000
+++ b/src/editfns.c	Wed Mar 28 15:50:47 2001 +0000
@@ -1,5 +1,5 @@
 /* Lisp functions pertaining to editing.
-   Copyright (C) 1985,86,87,89,93,94,95,96,97,98, 1999, 2000
+   Copyright (C) 1985,86,87,89,93,94,95,96,97,98, 1999, 2000, 2001
 	Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
@@ -1358,7 +1358,10 @@
 instead of the current time.  The argument should have the forms:\n\
  (HIGH . LOW) or (HIGH LOW USEC) or (HIGH LOW . USEC).\n\
 Thus, you can use times obtained from `current-time'\n\
-and from `file-attributes'.")
+and from `file-attributes'.\n\
+\n\
+WARNING: Since the result is floating point, it may not be exact.\n\
+Do not use this function if precise time stamps are required.")
   (specified_time)
      Lisp_Object specified_time;
 {
@@ -1368,7 +1371,7 @@
   if (! lisp_time_argument (specified_time, &sec, &usec))
     error ("Invalid time specification");
 
-  return make_float (sec + usec * 0.0000001);
+  return make_float ((sec * 1e6 + usec) / 1e6);
 }
 
 /* Write information into buffer S of size MAXSIZE, according to the