aboutsummaryrefslogtreecommitdiffstats
path: root/src/keymap.c
diff options
context:
space:
mode:
authorStefan Monnier2001-02-24 17:07:29 +0000
committerStefan Monnier2001-02-24 17:07:29 +0000
commit2ba11bbdcbe4d98e2f8295bdb13366738ed61d37 (patch)
tree1f7700d64610bf717c90437d6e432ddcc47e5ccc /src/keymap.c
parent4c1593cec62f7a4b9cbc563f13d09faebd9393af (diff)
downloademacs-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.c5
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;