From: Kenichi Handa <handa@m17n.org>
Date: Tue, 23 May 2000 02:19:20 +0000 (+0000)
Subject: (read_char): Allow character codes 128..255 to be
X-Git-Tag: emacs-pretest-21.0.90~3798
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8d76911517ef7cefc7939845e920145ef89282f7;p=emacs.git

(read_char): Allow character codes 128..255 to be
handled by input-method-function.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index 990d38313f9..d08fb8bebee 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -2528,7 +2528,8 @@ read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu)
   if (INTEGERP (c)
       && ! NILP (Vinput_method_function)
       && (unsigned) XINT (c) >= ' '
-      && (unsigned) XINT (c) < 127)
+      && (unsigned) XINT (c) != 127
+      && (unsigned) XINT (c) < 256)
     {
       previous_echo_area_message = Fcurrent_message ();
       Vinput_method_previous_message = previous_echo_area_message;
@@ -2552,7 +2553,8 @@ read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu)
 	 after the first event of the key sequence.  */
       && NILP (prev_event)
       && (unsigned) XINT (c) >= ' '
-      && (unsigned) XINT (c) < 127)
+      && (unsigned) XINT (c) != 127
+      && (unsigned) XINT (c) < 256)
     {
       Lisp_Object keys; 
       int key_count;