From 2ba11bbdcbe4d98e2f8295bdb13366738ed61d37 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 24 Feb 2001 17:07:29 +0000 Subject: [PATCH] (where_is_internal): Accept non-ascii integer prefixes. --- src/ChangeLog | 4 ++++ src/keymap.c | 5 +++-- 2 files changed, 7 insertions(+), 2 deletions(-) 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 + + * keymap.c (where_is_internal): Accept non-ascii integer prefixes. + 2001-02-24 Kenichi Handa * 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; -- 2.39.5