Contents in 1999-06-04-13 of release-21-2.

[chise/xemacs-chise.git.1] / lisp / easymenu.el

diff --git a/lisp/easymenu.el b/lisp/easymenu.el
index 9678183..906b51d 100644 (file)
--- 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)