X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Feasymenu.el;h=906b51d7c2aedc9034f87cd8c28d8efb992b07da;hp=9678183e2de96134bfa21776530e6fdf9485a859;hb=113b194be934327de99a168d809271db252c07c4;hpb=fc475e6669a613cd6d98eb5511c749a23b63c7ac

diff --git a/lisp/easymenu.el b/lisp/easymenu.el
index 9678183..906b51d 100644
--- a/lisp/easymenu.el
+++ b/lisp/easymenu.el
@@ -148,9 +148,9 @@ A menu item can be a list.  It is treated as a submenu.
 The first element should be the submenu name.  That's used as the
 menu item in the top-level menu.  The cdr of the submenu list
 is a list of menu items, as above."
-  (` (progn
-       (defvar (, symbol) nil (, doc))
-       (easy-menu-do-define (quote (, symbol)) (, maps) (, doc) (, menu)))))
+  `(progn
+     (defvar ,symbol nil ,doc)
+     (easy-menu-do-define (quote ,symbol) ,maps ,doc ,menu)))
 
 (defun easy-menu-do-define (symbol maps doc menu)
   (if (featurep 'menubar)