diff options
| author | Richard M. Stallman | 1996-09-26 21:20:05 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-09-26 21:20:05 +0000 |
| commit | a35f88bfcace13c71dd801cdab500df61d8c3f35 (patch) | |
| tree | 8d18ed9d23e9325de336ef2d4449b7cc68c54220 /src | |
| parent | 5fc9cabd150fcf8d3afd389bb7fb20cbcc6a64ce (diff) | |
| download | emacs-a35f88bfcace13c71dd801cdab500df61d8c3f35.tar.gz emacs-a35f88bfcace13c71dd801cdab500df61d8c3f35.zip | |
(isfloat_string): Accept E like e.
Diffstat (limited to 'src')
| -rw-r--r-- | src/lread.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lread.c b/src/lread.c index 1b945fcba5b..8dab8ee74c4 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -1671,7 +1671,7 @@ isfloat_string (cp) | |||
| 1671 | while (*cp >= '0' && *cp <= '9') | 1671 | while (*cp >= '0' && *cp <= '9') |
| 1672 | cp++; | 1672 | cp++; |
| 1673 | } | 1673 | } |
| 1674 | if (*cp == 'e') | 1674 | if (*cp == 'e' || *cp == 'E') |
| 1675 | { | 1675 | { |
| 1676 | state |= E_CHAR; | 1676 | state |= E_CHAR; |
| 1677 | cp++; | 1677 | cp++; |