From: Ken Raeburn <raeburn@raeburn.org>
Date: Mon, 15 Jul 2002 02:18:31 +0000 (+0000)
Subject: * lread.c (read_vector): Use STRING_SET_CHARS.
X-Git-Tag: ttn-vms-21-2-B4~14133
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bee9190421f32bdd6ec8fa2d18c8084ec8950eb0;p=emacs.git

* lread.c (read_vector): Use STRING_SET_CHARS.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 791c4f36150..44d6e613b20 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,10 +1,15 @@
 2002-07-14  Ken Raeburn  <raeburn@gnu.org>
 
+	* lisp.h (STRING_SET_CHARS): New macro.
+	(SCHARS, SBYTES): Produce rvalues.
+	* dired.c (directory_files_internal): Use STRING_SET_CHARS.
+	* fns.c (concat): Likewise.
+	* lread.c (read_vector): Likewise.
+
 	* lisp.h (SMBP): Deleted.  All uses changed to STRING_MULTIBYTE.
 	(STRING_SET_UNIBYTE): New macro.
 	(SET_STRING_BYTES): Deleted.  Callers (all of which supplied a
 	length of -1) changed to use STRING_SET_UNIBYTE.
-
 	* abbrev.c, alloc.c, buffer.c, bytecode.c, callint.c, callproc.c,
 	casefiddle.c, category.c, ccl.c, charset.c, charset.h, coding.c,
 	composite.c, data.c, dired.c, dispnew.c, disptab.h, doc.c,
diff --git a/src/lread.c b/src/lread.c
index 6900e337c7c..3b06968e084 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -2760,7 +2760,7 @@ read_vector (readcharfun, bytecodeflag)
 		  /* Coerce string to unibyte (like string-as-unibyte,
 		     but without generating extra garbage and
 		     guaranteeing no change in the contents).  */
-		  SCHARS (bytestr) = SBYTES (bytestr);
+		  STRING_SET_CHARS (bytestr, SBYTES (bytestr));
 		  STRING_SET_UNIBYTE (bytestr);
 
 		  item = Fread (bytestr);