Commit 3814ccf5 authored by Karl Heuer's avatar Karl Heuer

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

parent 2e4149a8
...@@ -341,8 +341,9 @@ add_properties (plist, i, object) ...@@ -341,8 +341,9 @@ add_properties (plist, i, object)
for (tail2 = i->plist; ! NILP (tail2); tail2 = Fcdr (Fcdr (tail2))) for (tail2 = i->plist; ! NILP (tail2); tail2 = Fcdr (Fcdr (tail2)))
if (EQ (sym1, Fcar (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 the property. Now check its value. */
found = 1; found = 1;
...@@ -396,10 +397,10 @@ remove_properties (plist, i, object) ...@@ -396,10 +397,10 @@ remove_properties (plist, i, object)
INTERVAL i; INTERVAL i;
Lisp_Object object; Lisp_Object object;
{ {
register Lisp_Object tail1, tail2, sym; register Lisp_Object tail1, tail2, sym, current_plist;
register Lisp_Object current_plist = i->plist;
register int changed = 0; register int changed = 0;
current_plist = i->plist;
/* Go through each element of plist. */ /* Go through each element of plist. */
for (tail1 = plist; ! NILP (tail1); tail1 = Fcdr (Fcdr (tail1))) for (tail1 = plist; ! NILP (tail1); tail1 = Fcdr (Fcdr (tail1)))
{ {
...@@ -426,7 +427,8 @@ remove_properties (plist, i, object) ...@@ -426,7 +427,8 @@ remove_properties (plist, i, object)
tail2 = current_plist; tail2 = current_plist;
while (! NILP (tail2)) while (! NILP (tail2))
{ {
register Lisp_Object this = Fcdr (Fcdr (tail2)); register Lisp_Object this;
this = Fcdr (Fcdr (tail2));
if (EQ (sym, Fcar (this))) if (EQ (sym, Fcar (this)))
{ {
if (XTYPE (object) == Lisp_Buffer) if (XTYPE (object) == Lisp_Buffer)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment