diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-12-02 21:31:12 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-12-02 21:31:12 +0000 |
| commit | c19cc275304ba21cbe4fc36e69fdd48b66f02891 (patch) | |
| tree | 65eec309e774654c0ca49405929a24a90161bce3 /lisp/tmm.el | |
| parent | 250cfeced5d481cb45c56d292372e12d51aac777 (diff) | |
| download | emacs-c19cc275304ba21cbe4fc36e69fdd48b66f02891.tar.gz | |
(tmm-get-keymap): Eval the menu name in `menu-item'.
Diffstat (limited to 'lisp/tmm.el')
| -rw-r--r-- | lisp/tmm.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/tmm.el b/lisp/tmm.el index 1db524ff22a..4a65efc75ba 100644 --- a/lisp/tmm.el +++ b/lisp/tmm.el @@ -429,7 +429,7 @@ It uses the free variable `tmm-table-undef' to keep undefined keys." ((eq (car-safe elt) 'menu-item) (setq plist (cdr-safe (cdr-safe (cdr-safe elt)))) (setq km (nth 2 elt)) - (setq str (nth 1 elt)) + (setq str (eval (nth 1 elt))) (setq filter (plist-get plist :filter)) (if filter (setq km (funcall filter km))) @@ -463,9 +463,7 @@ It uses the free variable `tmm-table-undef' to keep undefined keys." (setq km nil))) (and km str (or (assoc str tmm-km-list) - (setq tmm-km-list - (cons (cons str (cons event km)) tmm-km-list))) - )))) + (push (cons str (cons event km)) tmm-km-list)))))) (defun tmm-get-keybind (keyseq) "Return the current binding of KEYSEQ, merging prefix definitions. |