diff options
| author | Jim Blandy | 1992-07-21 04:09:28 +0000 |
|---|---|---|
| committer | Jim Blandy | 1992-07-21 04:09:28 +0000 |
| commit | 151bdc833ef6611acf656aef027513d578b44592 (patch) | |
| tree | da1b882779041aa7d7d30c58224673c92cd611f3 /src | |
| parent | 0b0ef30f7987eb125e05d0a653036cd7f58a6c43 (diff) | |
| download | emacs-151bdc833ef6611acf656aef027513d578b44592.tar.gz emacs-151bdc833ef6611acf656aef027513d578b44592.zip | |
*** empty log message ***
Diffstat (limited to 'src')
| -rw-r--r-- | src/lread.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/lread.c b/src/lread.c index db0ff297783..279f64a81b7 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -1049,8 +1049,10 @@ isfloat_string (cp) | |||
| 1049 | } | 1049 | } |
| 1050 | return (*cp == 0 | 1050 | return (*cp == 0 |
| 1051 | && (state == (LEAD_INT|DOT_CHAR|TRAIL_INT) | 1051 | && (state == (LEAD_INT|DOT_CHAR|TRAIL_INT) |
| 1052 | || state == (DOT_CHAR|TRAIL_INT) | ||
| 1052 | || state == (LEAD_INT|E_CHAR|EXP_INT) | 1053 | || state == (LEAD_INT|E_CHAR|EXP_INT) |
| 1053 | || state == (LEAD_INT|DOT_CHAR|TRAIL_INT|E_CHAR|EXP_INT))); | 1054 | || state == (LEAD_INT|DOT_CHAR|TRAIL_INT|E_CHAR|EXP_INT) |
| 1055 | || state == (DOT_CHAR|TRAIL_INT|E_CHAR|EXP_INT))); | ||
| 1054 | } | 1056 | } |
| 1055 | #endif /* LISP_FLOAT_TYPE */ | 1057 | #endif /* LISP_FLOAT_TYPE */ |
| 1056 | 1058 | ||