(japanese-katakana-region): Fix handling HANKAKU argument.

[gnu-emacs] / lisp / tmm.el

diff --git a/lisp/tmm.el b/lisp/tmm.el
index 0db56d4c1d468bc7d78daefd247425704285e0cc..cd674ce4b8f4f928a74a151e0efaa4e6b329fa6c 100644 (file)
--- 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)))