diff options
| author | Stefan Monnier | 2001-02-24 17:07:29 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2001-02-24 17:07:29 +0000 |
| commit | 2ba11bbdcbe4d98e2f8295bdb13366738ed61d37 (patch) | |
| tree | 1f7700d64610bf717c90437d6e432ddcc47e5ccc /src/keymap.c | |
| parent | 4c1593cec62f7a4b9cbc563f13d09faebd9393af (diff) | |
| download | emacs-2ba11bbdcbe4d98e2f8295bdb13366738ed61d37.tar.gz emacs-2ba11bbdcbe4d98e2f8295bdb13366738ed61d37.zip | |
(where_is_internal): Accept non-ascii integer prefixes.
Diffstat (limited to 'src/keymap.c')
| -rw-r--r-- | src/keymap.c | 5 |
1 files changed, 3 insertions, 2 deletions
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) | |||
| 2102 | last_is_meta = (XINT (last) >= 0 | 2102 | last_is_meta = (XINT (last) >= 0 |
| 2103 | && EQ (Faref (this, last), meta_prefix_char)); | 2103 | && EQ (Faref (this, last), meta_prefix_char)); |
| 2104 | 2104 | ||
| 2105 | if (nomenus && !ascii_sequence_p (this)) | 2105 | /* if (nomenus && !ascii_sequence_p (this)) */ |
| 2106 | if (nomenus && XINT (last) >= 0 && !INTEGERP (Faref (this, 0))) | ||
| 2106 | /* If no menu entries should be returned, skip over the | 2107 | /* If no menu entries should be returned, skip over the |
| 2107 | keymaps bound to `menu-bar' and `tool-bar' and other | 2108 | keymaps bound to `menu-bar' and `tool-bar' and other |
| 2108 | non-ascii prefixes. */ | 2109 | non-ascii prefixes like `C-down-mouse-2'. */ |
| 2109 | continue; | 2110 | continue; |
| 2110 | 2111 | ||
| 2111 | QUIT; | 2112 | QUIT; |