From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 23 Jan 1997 06:25:22 +0000 (+0000)
Subject: (tmm-get-keymap): Recognize explicit lambda expressions as valid.
X-Git-Tag: emacs-20.1~3022
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1146fab338b968eec37f14acb0ea6a7f790895af;p=emacs.git

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

diff --git a/lisp/tmm.el b/lisp/tmm.el
index b016e8231bf..d294f41d4d2 100644
--- 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))))