From: Kim F. Storm Date: Sun, 12 Sep 2004 21:35:14 +0000 (+0000) Subject: (Fformat): Handle format strings with multiple text X-Git-Tag: ttn-vms-21-2-B4~4942 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=15fad0379b062240bfaf95cbb6a612efd5d84225;p=emacs.git (Fformat): Handle format strings with multiple text properties. Reverse text property list from the format string, so the positions are in increasing order. --- diff --git a/src/editfns.c b/src/editfns.c index 88a0e63118f..51f8a71d531 100644 --- a/src/editfns.c +++ b/src/editfns.c @@ -3668,11 +3668,13 @@ usage: (format STRING &rest OBJECTS) */) /* Adjust the bounds of each text property to the proper start and end in the output string. */ - /* We take advantage of the fact that the positions in PROPS - are in increasing order, so that we can do (effectively) - one scan through the position space of the format string. - BYTEPOS is the byte position in the format string, + /* Put the positions in PROPS in increasing order, so that + we can do (effectively) one scan through the position + space of the format string. */ + props = Fnreverse (props); + + /* BYTEPOS is the byte position in the format string, POSITION is the untranslated char position in it, TRANSLATED is the translated char position in BUF, and ARGN is the number of the next arg we will come to. */