Mercurial > emacs

diff lisp/tmm.el @ 34137:c95b5f588978

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tmm-get-keymap): Eval the menu name in `menu-item'.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sat, 02 Dec 2000 21:31:02 +0000
parents a8e0d20f0043
children 8df7feb029cb
line wrap: on
line diff
--- a/lisp/tmm.el	Sat Dec 02 21:05:01 2000 +0000
+++ b/lisp/tmm.el	Sat Dec 02 21:31:02 2000 +0000
@@ -429,7 +429,7 @@
 	      ((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 @@
 	  (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.