* print.c (print_error_message): Avoid int overflow.

diff --git a/src/ChangeLog b/src/ChangeLog
index ebe2e08..ab296dd 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@
 2011-04-04  Paul Eggert  <eggert@cs.ucla.edu>
 
+       * print.c (print_error_message): Avoid int overflow.
+
        * font.c (font_list_entities): Redo for clarity,
        so that reader need not know FONT_DPI_INDEX + 1 == FONT_SPACING_INDEX.
 

diff --git a/src/print.c b/src/print.c
index 3e0e168..c076e1e 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -929,7 +929,7 @@ print_error_message (Lisp_Object data, Lisp_Object stream, const char *context,
   else
     write_string_1 ("peculiar error", -1, stream);
 
-  for (i = 0; CONSP (tail); tail = XCDR (tail), i++)
+  for (i = 0; CONSP (tail); tail = XCDR (tail), i = 1)
     {
       Lisp_Object obj;