Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-22 04:47:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(concat): Replace explicit numeric constants with proper macros.

Browse source
This commit is contained in:
Kenichi Handa 1998-07-08 02:19:14 +00:00
parent fa9b4b917b
commit 8b542479bb
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/fns.c
View file

@ -667,8 +667,8 @@ concat (nargs, args, target_type, last_special)
STRING_BYTES (XSTRING (this)));
if (some_multibyte
&& toindex_byte > 0
&& XSTRING (val)->data[toindex_byte - 1] >= 0x80
&& XSTRING (this)->data[0] >= 0xA0)
&& !ASCII_BYTE_P (XSTRING (val)->data[toindex_byte - 1])
&& !CHAR_HEAD_P (XSTRING (this)->data[0] >= 0xA0))
maybe_combine_byte = 1;
toindex_byte += thislen_byte;
toindex += thisleni;
@ -744,8 +744,8 @@ concat (nargs, args, target_type, last_special)
{
if (some_multibyte
&& toindex_byte > 0
&& XSTRING (val)->data[toindex_byte - 1] >= 0x80
&& XINT (elt) >= 0xA0)
&& !ASCII_BYTE_P (XSTRING (val)->data[toindex_byte - 1])
&& !CHAR_HEAD_P (XINT (elt)))
maybe_combine_byte = 1;
XSTRING (val)->data[toindex_byte++] = XINT (elt);
toindex++;