# HG changeset patch
# User Ken Raeburn <raeburn@raeburn.org>
# Date 961398908 0
# Node ID c9430bc1c8244daade0a6c9de4b467cdf12488df
# Parent  2bc397e9b09a4aeb1be10936d8949da9d61e7f55
* keyboard.c (follow_key, read_key_sequence): Use XUINT on key value, or checks
for CHAR_META will fail.
* keymap.c (get_keyelt): Likewise.

diff -r 2bc397e9b09a -r c9430bc1c824 src/ChangeLog
Binary file src/ChangeLog has changed
diff -r 2bc397e9b09a -r c9430bc1c824 src/keyboard.c
--- a/src/keyboard.c	Mon Jun 19 05:18:09 2000 +0000
+++ b/src/keyboard.c	Mon Jun 19 07:15:08 2000 +0000
@@ -8192,7 +8192,7 @@
 	      key = keybuf[fkey_end++];
 	      /* Look up meta-characters by prefixing them
 		 with meta_prefix_char.  I hate this.  */
-	      if (INTEGERP (key) && XINT (key) & meta_modifier)
+	      if (INTEGERP (key) && XUINT (key) & meta_modifier)
 		{
 		  fkey_next
 		    = get_keymap_1
@@ -8316,7 +8316,7 @@
 	    key = keybuf[keytran_end++];
 	    /* Look up meta-characters by prefixing them
 	       with meta_prefix_char.  I hate this.  */
-	    if (INTEGERP (key) && XINT (key) & meta_modifier)
+	    if (INTEGERP (key) && XUINT (key) & meta_modifier)
 	      {
 		keytran_next
 		  = get_keymap_1
diff -r 2bc397e9b09a -r c9430bc1c824 src/keymap.c
--- a/src/keymap.c	Mon Jun 19 05:18:09 2000 +0000
+++ b/src/keymap.c	Mon Jun 19 07:15:08 2000 +0000
@@ -625,7 +625,7 @@
 	    {
 	      Lisp_Object key;
 	      key = Fcdr (object);
-	      if (INTEGERP (key) && (XINT (key) & meta_modifier))
+	      if (INTEGERP (key) && (XUINT (key) & meta_modifier))
 		{
 		  object = access_keymap (map, meta_prefix_char, 0, 0);
 		  map = get_keymap_1 (object, 0, autoload);