diff options
| author | Kenichi Handa | 1998-08-28 12:22:39 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1998-08-28 12:22:39 +0000 |
| commit | cc531c444145b8b13f4520532e7ab36483e0e4cf (patch) | |
| tree | f7c974e8f3472a6f26d213c1e6875c09913f97a5 /src | |
| parent | b778fdb3a53f6fb0979552fbec1c012366b2c415 (diff) | |
| download | emacs-cc531c444145b8b13f4520532e7ab36483e0e4cf.tar.gz emacs-cc531c444145b8b13f4520532e7ab36483e0e4cf.zip | |
(concat): Use macro CHAR_BYTES instead of Fchar_bytes.
Diffstat (limited to 'src')
| -rw-r--r-- | src/fns.c | 4 |
1 files changed, 2 insertions, 2 deletions
| @@ -584,7 +584,7 @@ concat (nargs, args, target_type, last_special) | |||
| 584 | ch = XVECTOR (this)->contents[i]; | 584 | ch = XVECTOR (this)->contents[i]; |
| 585 | if (! INTEGERP (ch)) | 585 | if (! INTEGERP (ch)) |
| 586 | wrong_type_argument (Qintegerp, ch); | 586 | wrong_type_argument (Qintegerp, ch); |
| 587 | this_len_byte = XFASTINT (Fchar_bytes (ch)); | 587 | this_len_byte = CHAR_BYTES (XINT (ch)); |
| 588 | result_len_byte += this_len_byte; | 588 | result_len_byte += this_len_byte; |
| 589 | if (this_len_byte > 1) | 589 | if (this_len_byte > 1) |
| 590 | some_multibyte = 1; | 590 | some_multibyte = 1; |
| @@ -597,7 +597,7 @@ concat (nargs, args, target_type, last_special) | |||
| 597 | ch = XCONS (this)->car; | 597 | ch = XCONS (this)->car; |
| 598 | if (! INTEGERP (ch)) | 598 | if (! INTEGERP (ch)) |
| 599 | wrong_type_argument (Qintegerp, ch); | 599 | wrong_type_argument (Qintegerp, ch); |
| 600 | this_len_byte = XFASTINT (Fchar_bytes (ch)); | 600 | this_len_byte = CHAR_BYTES (XINT (ch)); |
| 601 | result_len_byte += this_len_byte; | 601 | result_len_byte += this_len_byte; |
| 602 | if (this_len_byte > 1) | 602 | if (this_len_byte > 1) |
| 603 | some_multibyte = 1; | 603 | some_multibyte = 1; |