]> code.delx.au - gnu-emacs/commitdiff
(command_loop_1): Add nonascii_insert_offset
authorRichard M. Stallman <rms@gnu.org>
Wed, 17 Sep 1997 00:53:33 +0000 (00:53 +0000)
committerRichard M. Stallman <rms@gnu.org>
Wed, 17 Sep 1997 00:53:33 +0000 (00:53 +0000)
before calling direct_output_for_insert.

src/keyboard.c

index 4c872016eb5f96d6ce26aae518b4a5740222d659..bf5643dba06708fd6b5fe160d87e89ea261787a0 100644 (file)
@@ -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;