diff options
| author | Karl Heuer <kwzh@gnu.org> | 1997-10-15 23:12:54 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1997-10-15 23:12:54 +0000 |
| commit | 142d91357fe87de90bfe7e789cd57ada662fc349 (patch) | |
| tree | dcea48b0b6c8608da9852fc9ae09d3fafbeed1d9 /src/data.c | |
| parent | 8d8c434d4f0919e602f31be513ca811acd7e446e (diff) | |
| download | emacs-142d91357fe87de90bfe7e789cd57ada662fc349.tar.gz | |
(Fstring_to_number): Handle NEGATIVE for floats too.
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/data.c b/src/data.c index 8b970959f9e..8a3d7191f07 100644 --- a/src/data.c +++ b/src/data.c @@ -1997,7 +1997,7 @@ Floating point numbers always use base 10.") #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) |