changeset 46374:5d419e7c527d

* fns.c (concat): Use STRING_SET_CHARS.
author Ken Raeburn <raeburn@raeburn.org>
date Mon, 15 Jul 2002 02:16:15 +0000
parents d101e617707c
children e90f58d3450c
files src/fns.c
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/fns.c	Mon Jul 15 02:14:17 2002 +0000
+++ b/src/fns.c	Mon Jul 15 02:16:15 2002 +0000
@@ -714,7 +714,7 @@
 	    }
 	  toindex_byte += thislen_byte;
 	  toindex += thisleni - combined;
-	  SCHARS (val) -= combined;
+	  STRING_SET_CHARS (val, SCHARS (val) - combined);
 	}
       /* Copy a single-byte string to a multibyte string.  */
       else if (STRINGP (this) && STRINGP (val))
@@ -804,7 +804,7 @@
 			&& toindex_byte > 0
 			&& count_combining (SDATA (val),
 					    toindex_byte, toindex_byte - 1))
-		      SCHARS (val)--;
+		      STRING_SET_CHARS (val, SCHARS (val) - 1);
 		    else
 		      toindex++;
 		  }