mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-05 19:31:02 -08:00
Code Issues Projects Releases Wiki Activity

* lread.c (read_vector): Use STRING_SET_CHARS.

Browse source
This commit is contained in:
Ken Raeburn 2002-07-15 02:18:31 +00:00
parent 1e4c578278
commit bee9190421
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/ChangeLog
View file

@ -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,

2
src/lread.c
View file

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