Mercurial > hg > xemacs-beta
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) |