From d0bca3c92e730c1d294ecd079997423413126e77 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 29 May 2000 15:50:01 +0000 Subject: [PATCH] (tmm-prompt): Recognize menu item definitions of the for `(menu-item ...)' when looking for the position of DEFAULT-ITEM. --- lisp/tmm.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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))) -- 2.39.5