Skip to content

GitLab

Commit cc531c44 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(concat): Use macro CHAR_BYTES instead of Fchar_bytes.

parent b778fdb3
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
src/fns.c
View file @ cc531c44
......@@ -584,7 +584,7 @@ concat (nargs, args, target_type, last_special)
ch = XVECTOR (this)->contents[i];
if (! INTEGERP (ch))
wrong_type_argument (Qintegerp, ch);
this_len_byte = XFASTINT (Fchar_bytes (ch));
this_len_byte = CHAR_BYTES (XINT (ch));
result_len_byte += this_len_byte;
if (this_len_byte > 1)
some_multibyte = 1;
......@@ -597,7 +597,7 @@ concat (nargs, args, target_type, last_special)
ch = XCONS (this)->car;
if (! INTEGERP (ch))
wrong_type_argument (Qintegerp, ch);
this_len_byte = XFASTINT (Fchar_bytes (ch));
this_len_byte = CHAR_BYTES (XINT (ch));
result_len_byte += this_len_byte;
if (this_len_byte > 1)
some_multibyte = 1;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment