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)
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)
......
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