comparison src/lread.c @ 48:56c54cf7c5b6 r19-16b90

Import from CVS: tag r19-16b90
author cvs
date Mon, 13 Aug 2007 08:56:04 +0200
parents e04119814345
children ee648375d8d6
comparison
equal deleted inserted replaced
47:11c6df210d7f 48:56c54cf7c5b6
1734 } 1734 }
1735 1735
1736 if (p == lim) 1736 if (p == lim)
1737 goto loser; 1737 goto loser;
1738 1738
1739 for (; p < lim; p++) 1739 for (; (p < lim) && (*p != '\0'); p++)
1740 { 1740 {
1741 int c = *p; 1741 int c = *p;
1742 unsigned EMACS_INT onum; 1742 unsigned EMACS_INT onum;
1743 1743
1744 if (isdigit (c)) 1744 if (isdigit (c))