Mercurial > hg > xemacs-beta
diff lisp/menubar.el @ 404:2f8bb876ab1d r21-2-32
Import from CVS: tag r21-2-32
author | cvs |
---|---|
date | Mon, 13 Aug 2007 11:16:07 +0200 |
parents | 8626e4521993 |
children | b8cc9ab3f761 |
line wrap: on
line diff
--- a/lisp/menubar.el Mon Aug 13 11:15:00 2007 +0200 +++ b/lisp/menubar.el Mon Aug 13 11:16:07 2007 +0200 @@ -128,19 +128,6 @@ menuitem))) (setq plistp (or (>= L 5) (and (> L 2) (keywordp (aref menuitem 2))))) - (or (stringp (aref menuitem 0)) - (signal 'error - (list - "first element of a button must be a string (the label)" - menuitem))) - (or plistp - (< L 4) - (null (aref menuitem 3)) - (stringp (aref menuitem 3)) - (signal 'error - (list - "fourth element of a button must be a string (the label suffix)" - menuitem))) (if plistp (let ((i 2) selp