1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00

(GET_UNSIGNED_NUMBER): Give proper error for spaces.

This commit is contained in:
Richard M. Stallman 2002-03-25 00:45:48 +00:00
parent e643ceae67
commit 060cc8ffa0

View File

@ -1944,7 +1944,8 @@ struct range_table_work_area
do { if (p != pend) \ do { if (p != pend) \
{ \ { \
PATFETCH (c); \ PATFETCH (c); \
while (c == ' ') PATFETCH (c); \ if (c == ' ') \
FREE_STACK_RETURN (REG_BADBR); \
while ('0' <= c && c <= '9') \ while ('0' <= c && c <= '9') \
{ \ { \
int prev; \ int prev; \
@ -1958,7 +1959,8 @@ struct range_table_work_area
break; \ break; \
PATFETCH (c); \ PATFETCH (c); \
} \ } \
while (c == ' ') PATFETCH (c); \ if (c == ' ') \
FREE_STACK_RETURN (REG_BADBR); \
} \ } \
} while (0) } while (0)