From 550bd63a2cd113504605de0bd38a33c047e1ccd6 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 3 Feb 1994 18:54:04 +0000 Subject: [PATCH] (merge_properties_sticky): Preserve original order of properties. --- src/intervals.c | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/intervals.c b/src/intervals.c index 2a946e6da0b..067f62c3053 100644 --- a/src/intervals.c +++ b/src/intervals.c @@ -304,7 +304,7 @@ rotate_right (interval) if (! NULL_INTERVAL_P (i)) i->parent = interval; - /* A's total length is decreased by the length of B and it's left child. */ + /* A's total length is decreased by the length of B and its left child. */ interval->total_length -= B->total_length - LEFT_TOTAL_LENGTH (interval); /* B must have the same total length of A. */ @@ -348,7 +348,7 @@ rotate_left (interval) if (! NULL_INTERVAL_P (i)) i->parent = interval; - /* A's total length is decreased by the length of B and it's right child. */ + /* A's total length is decreased by the length of B and its right child. */ interval->total_length -= B->total_length - RIGHT_TOTAL_LENGTH (interval); /* B must have the same total length of A. */ @@ -726,7 +726,7 @@ adjust_intervals_for_insertion (tree, position, length) /* Effect an adjustment corresponding to the addition of LENGTH characters of text. Do this by finding the interval containing POSITION in the - interval tree TREE, and then adjusting all of it's ancestors by adding + interval tree TREE, and then adjusting all of its ancestors by adding LENGTH to them. If POSITION is the first character of an interval, meaning that point @@ -927,12 +927,12 @@ merge_properties_sticky (pleft, pright) rear = Fcons (sym, rear); } } + props = Fnreverse (props); if (! NILP (front)) - props = Fcons (Qfront_sticky, Fcons (front, props)); + props = Fcons (Qfront_sticky, Fcons (Fnreverse (front), props)); if (! NILP (rear)) - props = Fcons (Qrear_nonsticky, Fcons (rear, props)); + props = Fcons (Qrear_nonsticky, Fcons (Fnreverse (rear), props)); return props; - } -- 2.39.5