diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-06-13 05:27:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-06-13 05:27:47 +0000 |
| commit | 6d1e3625ecfebaa97e656babc3955cced102406c (patch) | |
| tree | 623baf84a884ec83300d47840528059727e511c5 | |
| parent | b52a1af49587aea9756089737933a4f911d27ee6 (diff) | |
| download | emacs-6d1e3625ecfebaa97e656babc3955cced102406c.tar.gz | |
(parse_menu_item): Put a quote around DEF
to pass it as an argument to the filter function.
| -rw-r--r-- | src/keyboard.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index cf793b1909a..fee59e3af95 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -5801,8 +5801,9 @@ parse_menu_item (item, notreal, inmenubar) def = XVECTOR (item_properties)->contents[ITEM_PROPERTY_DEF]; if (!NILP (filter)) { - def = menu_item_eval_property (Fcons (XCONS (filter)->car, - Fcons (def, Qnil))); + def = menu_item_eval_property (list2 (XCONS (filter)->car, + list2 (Qquote, def))); + XVECTOR (item_properties)->contents[ITEM_PROPERTY_DEF] = def; } |