(Fformat): Fix calculation of text property positions

of format string.

2 files changed, 6 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index d45831da762..827abe51c57 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2006-07-13  Kenichi Handa  <handa@m17n.org>
+
+        * editfns.c (Fformat): Fix calculation of text property positions
+        of format string.
+
 2006-07-12  Kim F. Storm  <storm@cua.dk>
 
         * lisp.h (CHECK_TYPE): New macro for generic type checking.
diff --git a/src/editfns.c b/src/editfns.c
index 98a42855ba5..cf37c10a9d5 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -3886,7 +3886,7 @@ usage: (format STRING &rest OBJECTS)  */)
               /* Likewise adjust the property end position.  */
               pos = XINT (XCAR (XCDR (item)));
 
-              for (; bytepos < pos; bytepos++)
+              for (; position < pos; bytepos++)
                 {
                   if (! discarded[bytepos])
                     position++, translated++;