Mercurial > emacs
comparison src/lread.c @ 16342:b91af71f45f1
(isfloat_string): Accept E like e.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 26 Sep 1996 21:20:05 +0000 |
| parents | fa7a56c543df |
| children | 497b37552adb |
comparison
equal
deleted
inserted
replaced
| 16341:d7c001f4e79f | 16342:b91af71f45f1 |
|---|---|
| 1669 { | 1669 { |
| 1670 state |= TRAIL_INT; | 1670 state |= TRAIL_INT; |
| 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++; |
| 1678 if (*cp == '+' || *cp == '-') | 1678 if (*cp == '+' || *cp == '-') |
| 1679 cp++; | 1679 cp++; |