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:
parent
e643ceae67
commit
060cc8ffa0
@ -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)
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user