diff src/textprop.c @ 2124:54179ef9ce35

* textprop.c (Fadd_text_properties): Initialize the modified flag. Use a "for (;;)" loop at the end of the function, to indicate that all exiting is taken care of inside the loop. (Fremove_text_properties): Same.

--- a/src/textprop.c	Thu Mar 11 07:17:15 1993 +0000
+++ b/src/textprop.c	Thu Mar 11 07:17:54 1993 +0000
@@ -610,7 +610,7 @@
      Lisp_Object start, end, properties, object;
 {
   register INTERVAL i, unchanged;
-  register int s, len, modified;
+  register int s, len, modified = 0;
 
   properties = validate_plist (properties);
   if (NILP (properties))
@@ -660,7 +660,7 @@
     }
 
   /* We are at the beginning of an interval, with len to scan */
-  while (len > 0)
+  for (;;)
     {
       if (i == 0)
 	abort ();
@@ -800,7 +800,7 @@
      Lisp_Object start, end, props, object;
 {
   register INTERVAL i, unchanged;
-  register int s, len, modified;
+  register int s, len, modified = 0;
 
   if (NILP (object))
     XSET (object, Lisp_Buffer, current_buffer);
@@ -846,7 +846,7 @@
     }
 
   /* We are at the beginning of an interval, with len to scan */
-  while (len > 0)
+  for (;;)
     {
       if (i == 0)
 	abort ();