From 2cef5737de1aa5a1c3c66c59a22fb32fba6c391a Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 3 Mar 1998 01:29:16 +0000 Subject: [PATCH] (DEFAULT_NONASCII_INSERT_OFFSET): Macro definition is moved to charset.h. (concat): Use unibyte_char_to_multibyte. --- src/fns.c | 18 +++--------------- 1 file changed, 3 insertions(+), 15 deletions(-) diff --git a/src/fns.c b/src/fns.c index 6bdcff83e21..1299f3d2a8e 100644 --- a/src/fns.c +++ b/src/fns.c @@ -40,8 +40,6 @@ Boston, MA 02111-1307, USA. */ #define NULL (void *)0 #endif -#define DEFAULT_NONASCII_INSERT_OFFSET 0x800 - /* Nonzero enables use of dialog boxes for questions asked by mouse commands. */ int use_dialog_box; @@ -573,9 +571,9 @@ concat (nargs, args, target_type, last_special) break; else if (STRINGP (this)) { + int c; if (STRING_MULTIBYTE (this)) { - int c; FETCH_STRING_CHAR_ADVANCE (c, this, thisindex, thisindex_byte); @@ -583,21 +581,11 @@ concat (nargs, args, target_type, last_special) } else { - unsigned char c; XSETFASTINT (elt, XSTRING (this)->data[thisindex++]); if (some_multibyte && XINT (elt) >= 0200 && XINT (elt) < 0400) { - c = XINT (elt); - - if (! NILP (Vnonascii_translate_table)) - c = XINT (Faref (Vnonascii_translate_table, - make_number (c))); - else if (nonascii_insert_offset > 0) - c += nonascii_insert_offset; - else - c += DEFAULT_NONASCII_INSERT_OFFSET; - + c = unibyte_char_to_multibyte (XINT (elt)); XSETINT (elt, c); } } @@ -793,7 +781,7 @@ string_byte_to_char (string, byte_index) } /* Convert STRING to a multibyte string. - Single-byte characters 0200 through 0377 are converted + Single-byte characters 0240 through 0377 are converted by adding nonascii_insert_offset to each. */ Lisp_Object -- 2.39.2