mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1997-01-23 06:25:22 +00:00
parent 8896e42c9c
commit 1146fab338
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/tmm.el
View File

@ -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))))