diff options
author | Kenichi Handa <[email protected]> | 1998-03-03 01:29:16 +0000 |
---|---|---|
committer | Kenichi Handa <[email protected]> | 1998-03-03 01:29:16 +0000 |
commit | 2cef5737de1aa5a1c3c66c59a22fb32fba6c391a (patch) | |
tree | 1d830526381276cb609e624f5df53e15455a8392 /src/fns.c | |
parent | 93fdf93bc151e6679ec0d000ad040ec1daf70c61 (diff) |
(DEFAULT_NONASCII_INSERT_OFFSET): Macro definition is
moved to charset.h.
(concat): Use unibyte_char_to_multibyte.
Diffstat (limited to 'src/fns.c')
-rw-r--r-- | src/fns.c | 18 |
1 files changed, 3 insertions, 15 deletions
@@ -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 |