procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
`(menu-item ...)' when looking for the position of DEFAULT-ITEM.
This commit is contained in:
Gerd Moellmann 2000-05-29 15:50:01 +00:00
parent 95932ad0c6
commit d0bca3c92e
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/tmm.el
View file

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