# HG changeset patch # User Karl Heuer # Date 764556044 0 # Node ID 8278049ee7a7fe7f9731339328092bc77e90b0a7 # Parent df7438605e1e634e7dda8aa77a0c0d805c55c1db (add_properties, remove_properties): Use assignment, not initialization. diff -r df7438605e1e -r 8278049ee7a7 src/textprop.c --- a/src/textprop.c Fri Mar 25 00:40:16 1994 +0000 +++ b/src/textprop.c Fri Mar 25 00:40:44 1994 +0000 @@ -341,8 +341,9 @@ 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 @@ 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 @@ 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)