(where_is_internal): Accept non-ascii integer prefixes.

diff --git a/src/ChangeLog b/src/ChangeLog
index 6080cfd8520a97f8cbfe7223cf5bc0577bfb2262..ff3dc5bc1fb85837934ab0a20ee6526ce7eaa0da 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2001-02-24  Stefan Monnier  <monnier@cs.yale.edu>
+
+       * keymap.c (where_is_internal): Accept non-ascii integer prefixes.
+
 2001-02-24  Kenichi Handa  <handa@etl.go.jp>
 
        * Makefile.in (lisp): Add international/utf-8.elc.

diff --git a/src/keymap.c b/src/keymap.c
index dea2515890b1c38570fd609eb2c08a6a78c5011a..5493bc583c83e13d7f473590aec7d551fb4c49e4 100644 (file)
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -2102,10 +2102,11 @@ where_is_internal (definition, keymaps, firstonly, noindirect)
       last_is_meta = (XINT (last) >= 0
                      && EQ (Faref (this, last), meta_prefix_char));
 
-      if (nomenus && !ascii_sequence_p (this))
+      /* if (nomenus && !ascii_sequence_p (this)) */
+      if (nomenus && XINT (last) >= 0 && !INTEGERP (Faref (this, 0)))
        /* If no menu entries should be returned, skip over the
           keymaps bound to `menu-bar' and `tool-bar' and other
-          non-ascii prefixes.  */
+          non-ascii prefixes like `C-down-mouse-2'.  */
        continue;
       
       QUIT;