764 |
remove that. Also remove a menu help string as second element. |
remove that. Also remove a menu help string as second element. |
765 |
|
|
766 |
If AUTOLOAD is nonzero, load autoloadable keymaps |
If AUTOLOAD is nonzero, load autoloadable keymaps |
767 |
that are referred to with indirection. */ |
that are referred to with indirection. |
768 |
|
|
769 |
|
This can GC because menu_item_eval_property calls Feval. */ |
770 |
|
|
771 |
Lisp_Object |
Lisp_Object |
772 |
get_keyelt (object, autoload) |
get_keyelt (object, autoload) |
2556 |
continue; |
continue; |
2557 |
|
|
2558 |
record_sequence: |
record_sequence: |
2559 |
|
/* Don't annoy user with strings from a menu such as |
2560 |
|
Select Paste. Change them all to "(any string)", |
2561 |
|
so that there seems to be only one menu item |
2562 |
|
to report. */ |
2563 |
|
if (! NILP (sequence)) |
2564 |
|
{ |
2565 |
|
Lisp_Object tem; |
2566 |
|
tem = Faref (sequence, make_number (XVECTOR (sequence)->size - 1)); |
2567 |
|
if (STRINGP (tem)) |
2568 |
|
Faset (sequence, make_number (XVECTOR (sequence)->size - 1), |
2569 |
|
build_string ("(any string)")); |
2570 |
|
} |
2571 |
|
|
2572 |
/* It is a true unshadowed match. Record it, unless it's already |
/* It is a true unshadowed match. Record it, unless it's already |
2573 |
been seen (as could happen when inheriting keymaps). */ |
been seen (as could happen when inheriting keymaps). */ |
2574 |
if (NILP (Fmember (sequence, found))) |
if (NILP (Fmember (sequence, found))) |
2746 |
} |
} |
2747 |
|
|
2748 |
|
|
2749 |
/* This function cannot GC. */ |
/* This function can GC because get_keyelt can. */ |
2750 |
|
|
2751 |
static Lisp_Object |
static Lisp_Object |
2752 |
where_is_internal_1 (binding, key, definition, noindirect, this, last, |
where_is_internal_1 (binding, key, definition, noindirect, this, last, |