From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 24 Feb 2001 17:07:29 +0000 (+0000)
Subject: (where_is_internal): Accept non-ascii integer prefixes.
X-Git-Tag: emacs-pretest-21.0.99~138
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2ba11bbdcbe4d98e2f8295bdb13366738ed61d37;p=emacs.git

(where_is_internal): Accept non-ascii integer prefixes.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 6080cfd8520..ff3dc5bc1fb 100644
--- 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 dea2515890b..5493bc583c8 100644
--- 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;