# HG changeset patch # User Richard M. Stallman # Date 885419806 0 # Node ID 59ffd6ac16ece9a4fbfcda019d1db06f445b56bf # Parent 524d1cfb6913edca5b4f98336c385b0eff6a792b (internal_self_insert, Fself_insert_command): Use unibyte_char_to_multibyte. (nonascii_insert_offset): Variable moved to charset.c. (syms_of_cmds): Don't initialize nonascii_insert_offset. diff -r 524d1cfb6913 -r 59ffd6ac16ec src/cmds.c --- a/src/cmds.c Wed Jan 21 21:43:58 1998 +0000 +++ b/src/cmds.c Wed Jan 21 21:56:46 1998 +0000 @@ -39,9 +39,6 @@ /* This is the command that set up Vself_insert_face. */ Lisp_Object Vself_insert_face_command; -/* Offset to add to a non-ASCII value when inserting it. */ -int nonascii_insert_offset; - extern Lisp_Object Qface; DEFUN ("forward-point", Fforward_point, Sforward_point, 1, 1, 0, @@ -297,9 +294,8 @@ /* Add the offset to the character, for Finsert_char. We pass internal_self_insert the unmodified character because it itself does this offsetting. */ - if (modified_char >= 0200 && modified_char <= 0377 - && ! NILP (current_buffer->enable_multibyte_characters)) - modified_char += nonascii_insert_offset; + if (! NILP (current_buffer->enable_multibyte_characters)) + modified_char = unibyte_char_to_multibyte (modified_char); XSETFASTINT (n, XFASTINT (n) - 2); /* The first one might want to expand an abbrev. */ @@ -345,9 +341,8 @@ int chars_to_delete = 0; int spaces_to_insert = 0; - if (c >= 0200 && c <= 0377 - && ! NILP (current_buffer->enable_multibyte_characters)) - c += nonascii_insert_offset; + if (! NILP (current_buffer->enable_multibyte_characters)) + c = unibyte_char_to_multibyte (c); overwrite = current_buffer->overwrite_mode; if (!NILP (Vbefore_change_function) || !NILP (Vafter_change_function) @@ -534,13 +529,6 @@ More precisely, a char with closeparen syntax is self-inserted."); Vblink_paren_function = Qnil; - DEFVAR_INT ("nonascii-insert-offset", &nonascii_insert_offset, - "Offset to add to a non-ascii code 0200...0377 when inserting it.\n\ -This applies only when multibyte characters are enabled, and it serves\n\ -to convert a Latin-1 or similar 8-bit character code to the corresponding\n\ -Emacs character code."); - nonascii_insert_offset = 0; - defsubr (&Sforward_point); defsubr (&Sforward_char); defsubr (&Sbackward_char);