Mercurial > emacs

diff lisp/tmm.el @ 29290:181d214fe71c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 5834ff22d8ce
children a8e0d20f0043
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)))