463 |
tail1 = list, use_plist = 0; |
tail1 = list, use_plist = 0; |
464 |
|
|
465 |
/* Go through each element of LIST or PLIST. */ |
/* Go through each element of LIST or PLIST. */ |
466 |
while (! NILP (tail1)) |
while (CONSP (tail1)) |
467 |
{ |
{ |
468 |
sym = XCAR (tail1); |
sym = XCAR (tail1); |
469 |
|
|
470 |
/* First, remove the symbol if it's at the head of the list */ |
/* First, remove the symbol if it's at the head of the list */ |
471 |
while (! NILP (current_plist) && EQ (sym, XCAR (current_plist))) |
while (CONSP (current_plist) && EQ (sym, XCAR (current_plist))) |
472 |
{ |
{ |
473 |
if (BUFFERP (object)) |
if (BUFFERP (object)) |
474 |
record_property_change (i->position, LENGTH (i), |
record_property_change (i->position, LENGTH (i), |
485 |
{ |
{ |
486 |
register Lisp_Object this; |
register Lisp_Object this; |
487 |
this = XCDR (XCDR (tail2)); |
this = XCDR (XCDR (tail2)); |
488 |
if (EQ (sym, XCAR (this))) |
if (CONSP (this) && EQ (sym, XCAR (this))) |
489 |
{ |
{ |
490 |
if (BUFFERP (object)) |
if (BUFFERP (object)) |
491 |
record_property_change (i->position, LENGTH (i), |
record_property_change (i->position, LENGTH (i), |