procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(concat): Don't change multibyteness of the result by

Browse source 
concatenating an 8-bit character.
This commit is contained in:
Kenichi Handa 2003-09-26 11:21:21 +00:00
parent d9130605c6
commit 47cb11b343
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/fns.c
View file

@ -591,7 +591,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 (! ASCII_CHAR_P (XINT (ch)))
if (! ASCII_CHAR_P (XINT (ch)) && ! CHAR_BYTE8_P (XINT (ch)))
some_multibyte = 1;
}
else if (BOOL_VECTOR_P (this) && XBOOL_VECTOR (this)->size > 0)
@ -604,7 +604,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 (! ASCII_CHAR_P (XINT (ch)))
if (! ASCII_CHAR_P (XINT (ch)) && ! CHAR_BYTE8_P (XINT (ch)))
some_multibyte = 1;
}
else if (STRINGP (this))