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

diff --git a/src/ChangeLog b/src/ChangeLog
index ebe2e082e66365defc69c1a2242872143c8f9118..ab296dded6f759ecca545047b4feee5158d7b419 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 3e0e168381b202e38364cc4bb3aaa6b3b7c12ab9..c076e1ec973f72946bb3e9702df578aa1634af75 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;