Mercurial > hg > xemacs-beta

comparison lisp/easymenu.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents d883f39b8495
children 74fd4e045ea6
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
146 146
147 A menu item can be a list. It is treated as a submenu. 147 A menu item can be a list. It is treated as a submenu.
148 The first element should be the submenu name. That's used as the 148 The first element should be the submenu name. That's used as the
149 menu item in the top-level menu. The cdr of the submenu list 149 menu item in the top-level menu. The cdr of the submenu list
150 is a list of menu items, as above." 150 is a list of menu items, as above."
151 (` (progn 151 `(progn
152 (defvar (, symbol) nil (, doc)) 152 (defvar ,symbol nil ,doc)
153 (easy-menu-do-define (quote (, symbol)) (, maps) (, doc) (, menu))))) 153 (easy-menu-do-define (quote ,symbol) ,maps ,doc ,menu)))
154 154
155 (defun easy-menu-do-define (symbol maps doc menu) 155 (defun easy-menu-do-define (symbol maps doc menu)
156 (if (featurep 'menubar) 156 (if (featurep 'menubar)
157 (progn 157 (progn
158 (set symbol menu) 158 (set symbol menu)