* lread.c (read_vector): Use STRING_SET_CHARS.

diff --git a/src/ChangeLog b/src/ChangeLog
index 791c4f36150a6b5adabb8066ec27c2b9e2a5f9b8..44d6e613b207b0a5f9e4542dfe379bd70024fc79 100644 (file)
--- 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 6900e337c7c90a916fb7122c44a792b1ba14094c..3b06968e084908a433054c1e7600503267f1a915 100644 (file)
--- 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);