Mercurial > emacs
comparison src/lread.c @ 28190:aa79cfcecd73
(read_integer): Unread the last char not consumed.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Sat, 18 Mar 2000 01:04:28 +0000 |
| parents | 9a61aec440a7 |
| children | 5a354319f621 |
comparison
equal
deleted
inserted
replaced
| 28189:d7ec07dcbaa6 | 28190:aa79cfcecd73 |
|---|---|
| 1635 else if (c >= 'a' && c <= 'z') | 1635 else if (c >= 'a' && c <= 'z') |
| 1636 digit = c - 'a' + 10; | 1636 digit = c - 'a' + 10; |
| 1637 else if (c >= 'A' && c <= 'Z') | 1637 else if (c >= 'A' && c <= 'Z') |
| 1638 digit = c - 'A' + 10; | 1638 digit = c - 'A' + 10; |
| 1639 else | 1639 else |
| 1640 break; | 1640 { |
| 1641 UNREAD (c); | |
| 1642 break; | |
| 1643 } | |
| 1641 | 1644 |
| 1642 if (digit < 0 || digit >= radix) | 1645 if (digit < 0 || digit >= radix) |
| 1643 invalid_p = 1; | 1646 invalid_p = 1; |
| 1644 | 1647 |
| 1645 number = radix * number + digit; | 1648 number = radix * number + digit; |