Mercurial > emacs

comparison src/keymap.c @ 36373:274190d289d7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(where_is_internal): Accept non-ascii integer prefixes.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sat, 24 Feb 2001 17:07:17 +0000
parents ffdcf20f53f2
children 7fe1b8d8fc44
comparison
equal deleted inserted replaced
36372:5a7a1ff72e96 36373:274190d289d7
2100 map = Fcdr (Fcar (maps)); 2100 map = Fcdr (Fcar (maps));
2101 last = make_number (XINT (Flength (this)) - 1); 2101 last = make_number (XINT (Flength (this)) - 1);
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;
2112 2113
2113 while (CONSP (map)) 2114 while (CONSP (map))