aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/fns.c4
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)
585 wrong_type_argument (Qcharacterp, ch); 585 wrong_type_argument (Qcharacterp, ch);
586 this_len_byte = CHAR_BYTES (XINT (ch)); 586 this_len_byte = CHAR_BYTES (XINT (ch));
587 result_len_byte += this_len_byte; 587 result_len_byte += this_len_byte;
588 if (!SINGLE_BYTE_CHAR_P (XINT (ch))) 588 if (!ASCII_CHAR_P (XINT (ch)))
589 some_multibyte = 1; 589 some_multibyte = 1;
590 } 590 }
591 else if (BOOL_VECTOR_P (this) && XBOOL_VECTOR (this)->size > 0) 591 else if (BOOL_VECTOR_P (this) && XBOOL_VECTOR (this)->size > 0)
@@ -598,7 +598,7 @@ concat (nargs, args, target_type, last_special)
598 wrong_type_argument (Qcharacterp, ch); 598 wrong_type_argument (Qcharacterp, ch);
599 this_len_byte = CHAR_BYTES (XINT (ch)); 599 this_len_byte = CHAR_BYTES (XINT (ch));
600 result_len_byte += this_len_byte; 600 result_len_byte += this_len_byte;
601 if (!SINGLE_BYTE_CHAR_P (XINT (ch))) 601 if (!ASCII_CHAR_P (XINT (ch)))
602 some_multibyte = 1; 602 some_multibyte = 1;
603 } 603 }
604 else if (STRINGP (this)) 604 else if (STRINGP (this))