From 3814ccf5ee2b859d7752cd74fc261444e5fb030e Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 25 Mar 1994 00:40:44 +0000 Subject: [PATCH] (add_properties, remove_properties): Use assignment, not initialization. --- src/textprop.c | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/src/textprop.c b/src/textprop.c index 0b328da308b..ca60c4d6524 100644 --- 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) -- 2.11.4.GIT