(tmm-get-keymap): Recognize explicit lambda expressions as valid.

diff --git a/lisp/tmm.el b/lisp/tmm.el
index b016e8231bf103202ddc213e70ccd42f56d705c3..d294f41d4d27c9e7fc46bd76b3a62aedc385341f 100644 (file)
--- a/lisp/tmm.el
+++ b/lisp/tmm.el
@@ -392,16 +392,18 @@ It uses the free variable `tmm-table-undef' to keep undefined keys."
       (or
        (assoc event tmm-table-undef)
        (and (if (listp elt)
-               (keymapp elt)
+               (or (keymapp elt) (eq (car elt) 'lambda))
              (fboundp elt))
            (setq km elt))
        (and (if (listp (cdr-safe elt))
-               (keymapp (cdr-safe elt))
+               (or (keymapp (cdr-safe elt))
+                   (eq (car (cdr-safe elt)) 'lambda))
              (fboundp (cdr-safe elt)))
            (setq km (cdr elt))
            (and (stringp (car elt)) (setq str (car elt))))
        (and (if (listp (cdr-safe (cdr-safe elt)))
-               (keymapp (cdr-safe (cdr-safe elt)))
+               (or (keymapp (cdr-safe (cdr-safe elt)))
+                   (eq (car (cdr-safe (cdr-safe elt))) 'lambda))
              (fboundp (cdr-safe (cdr-safe elt))))
            (setq km (cdr (cdr elt)))
            (and (stringp (car elt)) (setq str (car elt)))
@@ -410,7 +412,8 @@ It uses the free variable `tmm-table-undef' to keep undefined keys."
                     (setq cache (cdr (car (cdr elt))))
                     cache (setq str (concat str cache))) str))
        (and (if (listp (cdr-safe (cdr-safe (cdr-safe elt))))
-               (keymapp (cdr-safe (cdr-safe (cdr-safe elt))))
+               (or (keymapp (cdr-safe (cdr-safe (cdr-safe elt))))
+                   (eq (car (cdr-safe (cdr-safe (cdr-safe elt)))) 'lambda))
              (fboundp (cdr-safe (cdr-safe (cdr-safe elt)))))
                                        ; New style of easy-menu
            (setq km (cdr (cdr (cdr elt))))