(concat): Check CH by ASCII_CHAR_P, not by

SINGLE_BYTE_CHAR_P.

1 files changed, 2 insertions, 2 deletions

diff --git a/src/fns.c b/src/fns.c
index 27fdcdd35a3..c11f9d0c80d 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -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))