comparison src/lread.c @ 142:1856695b1fa9 r20-2b5

Import from CVS: tag r20-2b5
author cvs
date Mon, 13 Aug 2007 09:33:18 +0200
parents 585fb297b004
children 538048ae2ab8
comparison
equal deleted inserted replaced
141:ea67ad3963dc 142:1856695b1fa9
1845 } 1845 }
1846 1846
1847 if (p == lim) 1847 if (p == lim)
1848 goto loser; 1848 goto loser;
1849 1849
1850 for (; p < lim; p++) 1850 for (; (p < lim) && (*p != '\0'); p++)
1851 { 1851 {
1852 int c = *p; 1852 int c = *p;
1853 unsigned EMACS_INT onum; 1853 unsigned EMACS_INT onum;
1854 1854
1855 if (isdigit (c)) 1855 if (isdigit (c))