(add_properties, remove_properties): Use assignment, not initialization.

diff --git a/src/textprop.c b/src/textprop.c
index 0b328da308b6bfc8ac149bcfc4960215d8921f71..ca60c4d65241fda7b0c13a241553b7e29bee1f2d 100644 (file)
--- a/src/textprop.c
+++ b/src/textprop.c
@@ -341,8 +341,9 @@ add_properties (plist, i, object)
       for (tail2 = i->plist; ! NILP (tail2); tail2 = Fcdr (Fcdr (tail2)))
        if (EQ (sym1, Fcar (tail2)))
          {
-           register Lisp_Object this_cdr = Fcdr (tail2);
+           register Lisp_Object this_cdr;
 
+           this_cdr = Fcdr (tail2);
            /* Found the property.  Now check its value. */
            found = 1;
 
@@ -396,10 +397,10 @@ remove_properties (plist, i, object)
      INTERVAL i;
      Lisp_Object object;
 {
-  register Lisp_Object tail1, tail2, sym;
-  register Lisp_Object current_plist = i->plist;
+  register Lisp_Object tail1, tail2, sym, current_plist;
   register int changed = 0;
 
+  current_plist = i->plist;
   /* Go through each element of plist. */
   for (tail1 = plist; ! NILP (tail1); tail1 = Fcdr (Fcdr (tail1)))
     {
@@ -426,7 +427,8 @@ remove_properties (plist, i, object)
       tail2 = current_plist;
       while (! NILP (tail2))
        {
-         register Lisp_Object this = Fcdr (Fcdr (tail2));
+         register Lisp_Object this;
+         this = Fcdr (Fcdr (tail2));
          if (EQ (sym, Fcar (this)))
            {
              if (XTYPE (object) == Lisp_Buffer)