(tmm-prompt): Recognize menu item definitions of the for

`(menu-item ...)' when looking for the position of DEFAULT-ITEM.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/tmm.el b/lisp/tmm.el
index 0db56d4c1d4..cd674ce4b8f 100644
--- a/lisp/tmm.el
+++ b/lisp/tmm.el
@@ -193,7 +193,8 @@ Its value should be an event that has a binding in MENU."
                      ;; Be careful to count only the elements of MENU
                      ;; that actually constitute menu bar items.
                      (if (and (consp (car tail))
-                              (stringp (car-safe (cdr (car tail)))))
+                              (or (stringp (car-safe (cdr (car tail))))
+                                  (eq (car-safe (cdr (car tail))) 'menu-item)))
                          (setq index-of-default (1+ index-of-default)))
                      (setq tail (cdr tail)))))
              (setq history (reverse (mapcar 'car tmm-km-list)))