Mercurial > emacs
changeset 44976:b8a7a7d6e18a
(remove_properties): Don't use XCAR without CONSP.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 29 Apr 2002 19:29:58 +0000 |
| parents | 4cbf00710ba2 |
| children | 2a7ca74ca9f1 |
| files | src/textprop.c |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/textprop.c Mon Apr 29 18:24:49 2002 +0000 +++ b/src/textprop.c Mon Apr 29 19:29:58 2002 +0000 @@ -463,12 +463,12 @@ tail1 = list, use_plist = 0; /* Go through each element of LIST or PLIST. */ - while (! NILP (tail1)) + while (CONSP (tail1)) { sym = XCAR (tail1); /* First, remove the symbol if it's at the head of the list */ - while (! NILP (current_plist) && EQ (sym, XCAR (current_plist))) + while (CONSP (current_plist) && EQ (sym, XCAR (current_plist))) { if (BUFFERP (object)) record_property_change (i->position, LENGTH (i), @@ -485,7 +485,7 @@ { register Lisp_Object this; this = XCDR (XCDR (tail2)); - if (EQ (sym, XCAR (this))) + if (CONSP (this) && EQ (sym, XCAR (this))) { if (BUFFERP (object)) record_property_change (i->position, LENGTH (i),