# HG changeset patch # User Richard M. Stallman # Date 854000722 0 # Node ID defd7a515c0944716c611e2ddfc940e515f53df1 # Parent 4b61c355492b2f155bd78aa309d898558ec0d3bc (tmm-get-keymap): Recognize explicit lambda expressions as valid. diff -r 4b61c355492b -r defd7a515c09 lisp/tmm.el --- a/lisp/tmm.el Thu Jan 23 04:23:12 1997 +0000 +++ b/lisp/tmm.el Thu Jan 23 06:25:22 1997 +0000 @@ -392,16 +392,18 @@ (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 @@ (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))))