mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-09 21:20:45 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Karl Heuer 1994-03-25 00:40:44 +00:00
parent 2e4149a838
commit 3814ccf5ee
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/textprop.c
View file

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