mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-22 18:35:09 +00:00
(where_is_internal): Accept non-ascii integer prefixes.
This commit is contained in:
parent
4c1593cec6
commit
2ba11bbdcb
@ -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.
|
||||
|
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user