Skip to content

GitLab

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
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 1 deletion
lisp/tmm.el
View file @ d0bca3c9
......@@ -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