1 files changed, 3 insertions, 1 deletions

diff --git a/src/keyboard.c b/src/keyboard.c
index 9a50a5e5eb7..7184b1509b1 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -7841,7 +7841,9 @@ parse_menu_item (Lisp_Object item, int inmenubar)
               else if (EQ (tem, QCkeys))
                 {
                   tem = XCAR (item);
-                  if (CONSP (tem) || STRINGP (tem))
+                  if (FUNCTIONP (tem))
+                    ASET (item_properties, ITEM_PROPERTY_KEYEQ, call0 (tem));
+                  else if (CONSP (tem) || STRINGP (tem))
                     ASET (item_properties, ITEM_PROPERTY_KEYEQ, tem);
                 }
               else if (EQ (tem, QCbutton) && CONSP (XCAR (item)))