Commit 5d516ca2 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(concat): Check CH by ASCII_CHAR_P, not by

SINGLE_BYTE_CHAR_P.
parent 0f8ea88f
......@@ -585,7 +585,7 @@ concat (nargs, args, target_type, last_special)
wrong_type_argument (Qcharacterp, ch);
this_len_byte = CHAR_BYTES (XINT (ch));
result_len_byte += this_len_byte;
if (!SINGLE_BYTE_CHAR_P (XINT (ch)))
if (!ASCII_CHAR_P (XINT (ch)))
some_multibyte = 1;
}
else if (BOOL_VECTOR_P (this) && XBOOL_VECTOR (this)->size > 0)
......@@ -598,7 +598,7 @@ concat (nargs, args, target_type, last_special)
wrong_type_argument (Qcharacterp, ch);
this_len_byte = CHAR_BYTES (XINT (ch));
result_len_byte += this_len_byte;
if (!SINGLE_BYTE_CHAR_P (XINT (ch)))
if (!ASCII_CHAR_P (XINT (ch)))
some_multibyte = 1;
}
else if (STRINGP (this))
......
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