From: Ken Raeburn <raeburn@raeburn.org>
Date: Mon, 10 Aug 2009 00:57:48 +0000 (+0000)
Subject: (concat): Don't re-set string length to its current value.
X-Git-Tag: emacs-pretest-23.1.90~1897
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=77437343067af467cab2c8925d2e86a769701feb;p=emacs.git

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

diff --git a/src/ChangeLog b/src/ChangeLog
index 7872fec0d99..935555f5b6b 100644
--- 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 07663830248..61abf32138d 100644
--- 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))