diff 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
line wrap: on
line diff
--- a/src/lread.c	Mon Aug 13 09:32:45 2007 +0200
+++ b/src/lread.c	Mon Aug 13 09:33:18 2007 +0200
@@ -1847,7 +1847,7 @@
   if (p == lim)
     goto loser;
 
-  for (; p < lim; p++)
+  for (; (p < lim) && (*p != '\0'); p++)
     {
       int c = *p;
       unsigned EMACS_INT onum;