changeset 29290:181d214fe71c

(tmm-prompt): Recognize menu item definitions of the for `(menu-item ...)' when looking for the position of DEFAULT-ITEM.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 29 May 2000 15:50:01 +0000
parents 9ad79f5782af
children 4849a9a666ab
files lisp/tmm.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/tmm.el	Mon May 29 15:49:05 2000 +0000
+++ b/lisp/tmm.el	Mon May 29 15:50:01 2000 +0000
@@ -193,7 +193,8 @@
 		     ;; 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)))