Mercurial > emacs

changeset 20055:684adb0dcfcc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fstring_to_number): Handle NEGATIVE for floats too.
author Karl Heuer <kwzh@gnu.org>
date Wed, 15 Oct 1997 23:12:54 +0000
parents 1b8324e38772
children dd567e1fddd5
files src/data.c
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/data.c	Wed Oct 15 23:10:11 1997 +0000
+++ b/src/data.c	Wed Oct 15 23:12:54 1997 +0000
@@ -1997,7 +1997,7 @@
   
 #ifdef LISP_FLOAT_TYPE
   if (isfloat_string (p))
-    return make_float (atof (p));
+    return make_float (negative * atof (p));
 #endif /* LISP_FLOAT_TYPE */
 
   while (1)