From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 17 Sep 1997 00:53:33 +0000 (+0000)
Subject: (command_loop_1): Add nonascii_insert_offset
X-Git-Tag: emacs-20.1~1
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/e3ee748781bf7a4f3060245cb5ef5391e3905cf1

(command_loop_1): Add nonascii_insert_offset
before calling direct_output_for_insert.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index 4c872016eb..bf5643dba0 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -500,6 +500,8 @@ int timers_run;
 
 extern Lisp_Object Vprint_level, Vprint_length;
 
+extern nonascii_insert_offset;
+
 /* Address (if not 0) of EMACS_TIME to zero out if a SIGIO interrupt
    happens.  */
 EMACS_TIME *input_available_clear_time;
@@ -1369,6 +1371,13 @@ command_loop_1 ()
 			= window_display_table (XWINDOW (selected_window));
 		      int lose = c;
 
+		      /* Add the offset to the character, for Finsert_char.
+			 We pass internal_self_insert the unmodified character
+			 because it itself does this offsetting.  */
+		      if (lose >= 0200 && lose <= 0377
+			  && ! NILP (current_buffer->enable_multibyte_characters))
+			lose += nonascii_insert_offset;
+
 		      if (dp)
 			{
 			  Lisp_Object obj;