Mercurial > emacs
changeset 46425:2e674544b19a
* fns.c (concat): Use SSET.
(concat, Fdelete): Use SDATA.
| author | Ken Raeburn <raeburn@raeburn.org> |
|---|---|
| date | Tue, 16 Jul 2002 15:49:20 +0000 |
| parents | 9aa6b2db42da |
| children | d7f3f0434d43 |
| files | src/fns.c |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/src/fns.c Tue Jul 16 15:49:16 2002 +0000 +++ b/src/fns.c Tue Jul 16 15:49:20 2002 +0000 @@ -799,7 +799,7 @@ += CHAR_STRING (XINT (elt), SDATA (val) + toindex_byte); else - SREF (val, toindex_byte++) = XINT (elt); + SSET (val, toindex_byte++, XINT (elt)); if (some_multibyte && toindex_byte > 0 && count_combining (SDATA (val), @@ -815,7 +815,7 @@ int c = XINT (elt); /* P exists as a variable to avoid a bug on the Masscomp C compiler. */ - unsigned char *p = & SREF (val, toindex_byte); + unsigned char *p = SDATA (val) + toindex_byte; toindex_byte += CHAR_STRING (c, p); toindex++; @@ -1698,7 +1698,7 @@ { if (STRING_MULTIBYTE (seq)) { - c = STRING_CHAR (&SREF (seq, ibyte), + c = STRING_CHAR (SDATA (seq) + ibyte, SBYTES (seq) - ibyte); cbytes = CHAR_BYTES (c); } @@ -1729,7 +1729,7 @@ { if (STRING_MULTIBYTE (seq)) { - c = STRING_CHAR (&SREF (seq, ibyte), + c = STRING_CHAR (SDATA (seq) + ibyte, SBYTES (seq) - ibyte); cbytes = CHAR_BYTES (c); } @@ -1741,8 +1741,8 @@ if (!INTEGERP (elt) || c != XINT (elt)) { - unsigned char *from = &SREF (seq, ibyte); - unsigned char *to = &SREF (tem, nbytes); + unsigned char *from = SDATA (seq) + ibyte; + unsigned char *to = SDATA (tem) + nbytes; EMACS_INT n; ++nchars;