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