comparison 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
comparison
equal deleted inserted replaced
403:9f011ab08d48 404:2f8bb876ab1d
126 (signal 'error 126 (signal 'error
127 (list "button descriptors must be at least 2 long" 127 (list "button descriptors must be at least 2 long"
128 menuitem))) 128 menuitem)))
129 (setq plistp (or (>= L 5) 129 (setq plistp (or (>= L 5)
130 (and (> L 2) (keywordp (aref menuitem 2))))) 130 (and (> L 2) (keywordp (aref menuitem 2)))))
131 (or (stringp (aref menuitem 0))
132 (signal 'error
133 (list
134 "first element of a button must be a string (the label)"
135 menuitem)))
136 (or plistp
137 (< L 4)
138 (null (aref menuitem 3))
139 (stringp (aref menuitem 3))
140 (signal 'error
141 (list
142 "fourth element of a button must be a string (the label suffix)"
143 menuitem)))
144 (if plistp 131 (if plistp
145 (let ((i 2) 132 (let ((i 2)
146 selp 133 selp
147 style 134 style
148 item) 135 item)