* lread.c (read_vector): Use STRING_SET_CHARS.

2 files changed, 7 insertions, 2 deletions

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);