Commit d0bca3c9 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

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

`(menu-item ...)' when looking for the position of DEFAULT-ITEM.
parent 95932ad0
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment