diff options
| author | Richard M. Stallman | 1997-09-17 00:53:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-09-17 00:53:33 +0000 |
| commit | e3ee748781bf7a4f3060245cb5ef5391e3905cf1 (patch) | |
| tree | 69cfd3e76e3e703d6f266c3e0905fe69bcb82674 /src | |
| parent | bea3ec88ac5106aa11c37409ad8c1ca375167b4a (diff) | |
| download | emacs-e3ee748781bf7a4f3060245cb5ef5391e3905cf1.tar.gz emacs-e3ee748781bf7a4f3060245cb5ef5391e3905cf1.zip | |
(command_loop_1): Add nonascii_insert_offset
before calling direct_output_for_insert.
Diffstat (limited to 'src')
| -rw-r--r-- | src/keyboard.c | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index 4c872016eb5..bf5643dba06 100644 --- a/src/keyboard.c +++ b/src/keyboard.c | |||
| @@ -500,6 +500,8 @@ int timers_run; | |||
| 500 | 500 | ||
| 501 | extern Lisp_Object Vprint_level, Vprint_length; | 501 | extern Lisp_Object Vprint_level, Vprint_length; |
| 502 | 502 | ||
| 503 | extern nonascii_insert_offset; | ||
| 504 | |||
| 503 | /* Address (if not 0) of EMACS_TIME to zero out if a SIGIO interrupt | 505 | /* Address (if not 0) of EMACS_TIME to zero out if a SIGIO interrupt |
| 504 | happens. */ | 506 | happens. */ |
| 505 | EMACS_TIME *input_available_clear_time; | 507 | EMACS_TIME *input_available_clear_time; |
| @@ -1369,6 +1371,13 @@ command_loop_1 () | |||
| 1369 | = window_display_table (XWINDOW (selected_window)); | 1371 | = window_display_table (XWINDOW (selected_window)); |
| 1370 | int lose = c; | 1372 | int lose = c; |
| 1371 | 1373 | ||
| 1374 | /* Add the offset to the character, for Finsert_char. | ||
| 1375 | We pass internal_self_insert the unmodified character | ||
| 1376 | because it itself does this offsetting. */ | ||
| 1377 | if (lose >= 0200 && lose <= 0377 | ||
| 1378 | && ! NILP (current_buffer->enable_multibyte_characters)) | ||
| 1379 | lose += nonascii_insert_offset; | ||
| 1380 | |||
| 1372 | if (dp) | 1381 | if (dp) |
| 1373 | { | 1382 | { |
| 1374 | Lisp_Object obj; | 1383 | Lisp_Object obj; |