Mercurial > emacs
changeset 5760:ffe89784cef2
(merge_properties_sticky): Preserve original order of properties.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 03 Feb 1994 18:54:04 +0000 |
| parents | e4bd64404a43 |
| children | 7bea55d86ff6 |
| files | src/intervals.c |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/src/intervals.c Thu Feb 03 06:07:47 1994 +0000 +++ b/src/intervals.c Thu Feb 03 18:54:04 1994 +0000 @@ -304,7 +304,7 @@ 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 @@ 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 @@ /* 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 @@ 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; - }