*** empty log message ***

[gnu-emacs] / lisp / tmm.el

diff --git a/lisp/tmm.el b/lisp/tmm.el
index 1db524ff22a60ec19e4afd41bbcb48e9ba5f82dd..4a65efc75bad7eb08ab2d15db73682be76a99bf2 100644 (file)
--- 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.