From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 29 May 2000 15:50:01 +0000 (+0000)
Subject: (tmm-prompt): Recognize menu item definitions of the for
X-Git-Tag: emacs-pretest-21.0.90~3635
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d0bca3c92e730c1d294ecd079997423413126e77;p=emacs.git

(tmm-prompt): Recognize menu item definitions of the for
`(menu-item ...)' when looking for the position of DEFAULT-ITEM.
---

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)))