From f25d60d646e84b783837351120087138529c9e95 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Mon, 22 Apr 2002 17:59:02 +0000 Subject: [PATCH] (remove_properties): Fixed trap for malformed plist. --- src/ChangeLog | 4 ++++ src/textprop.c | 13 ++++++------- 2 files changed, 10 insertions(+), 7 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 8c6bd5af5ee..958b410cead 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2002-04-22 Kim F. Storm + + * textprop.c (remove_properties): Fixed trap for malformed plist. + 2002-04-22 Richard M. Stallman * window.c (make_window): Initialize height_fixed_p, diff --git a/src/textprop.c b/src/textprop.c index 928c9f9b8b3..c85b4dcfd04 100644 --- a/src/textprop.c +++ b/src/textprop.c @@ -452,15 +452,15 @@ remove_properties (plist, list, i, object) register Lisp_Object tail1, tail2, sym, current_plist; register int changed = 0; - /* Nonzero means tail1 is a list, otherwise it is a plist. */ - int use_list; + /* Nonzero means tail1 is a plist, otherwise it is a list. */ + int use_plist; current_plist = i->plist; if (! NILP (plist)) - tail1 = plist, use_list = 0; + tail1 = plist, use_plist = 1; else - tail1 = list, use_list = 1; + tail1 = list, use_plist = 0; /* Go through each element of LIST or PLIST. */ while (! NILP (tail1)) @@ -498,10 +498,9 @@ remove_properties (plist, list, i, object) } /* Advance thru TAIL1 one way or the other. */ - if (use_list) + tail1 = XCDR (tail1); + if (use_plist && CONSP (tail1)) tail1 = XCDR (tail1); - else - tail1 = XCDR (XCDR (tail1)); } if (changed) -- 2.39.2