diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-05-29 15:50:01 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-05-29 15:50:01 +0000 |
| commit | d0bca3c92e730c1d294ecd079997423413126e77 (patch) | |
| tree | 5c90b019f6390428ebf5a7de2dcc338393ef2045 /lisp/tmm.el | |
| parent | 95932ad0c6e02b5cfd4e699fdce6144950a57ae4 (diff) | |
| download | emacs-d0bca3c92e730c1d294ecd079997423413126e77.tar.gz | |
(tmm-prompt): Recognize menu item definitions of the for
`(menu-item ...)' when looking for the position of DEFAULT-ITEM.
Diffstat (limited to 'lisp/tmm.el')
| -rw-r--r-- | lisp/tmm.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/tmm.el b/lisp/tmm.el index 0db56d4c1d4..cd674ce4b8f 100644 --- a/lisp/tmm.el +++ b/lisp/tmm.el @@ -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))) |