(concat): Don't re-set string length to its current value.

diff --git a/src/ChangeLog b/src/ChangeLog
index 7872fec0d99df6a81b82466c15b3e28f624bc712..935555f5b6b0e6a896360fca1cade5cece581b93 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,8 @@
 2009-08-10  Ken Raeburn  <raeburn@raeburn.org>
 
+       * fns.c (concat): Don't re-set string length to its current
+       value.
+
        * coding.h (decode_coding_string, encode_coding_string): Use
        SBYTES macro.
 

diff --git a/src/fns.c b/src/fns.c
index 076638302488f06fb63d9e40edf3c9313345ea38..61abf32138d82e978016424ddb71fd749c4b350a 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -661,7 +661,6 @@ concat (nargs, args, target_type, last_special)
            }
          toindex_byte += thislen_byte;
          toindex += thisleni;
-         STRING_SET_CHARS (val, SCHARS (val));
        }
       /* Copy a single-byte string to a multibyte string.  */
       else if (STRINGP (this) && STRINGP (val))