Mercurial > hg > xemacs-beta

comparison lisp/menubar.el @ 412:697ef44129c6 r21-2-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-14
author cvs
date Mon, 13 Aug 2007 11:20:41 +0200
parents b8cc9ab3f761
children
comparison
equal deleted inserted replaced
411:12e008d41344 412:697ef44129c6
28 28
29 ;;; Commentary: 29 ;;; Commentary:
30 30
31 ;; This file is dumped with XEmacs (when menubar support is compiled in). 31 ;; This file is dumped with XEmacs (when menubar support is compiled in).
32 32
33 ;; Some stuff in FSF menu-bar.el is in menubar-items.el 33 ;; Some stuff in FSF menu-bar.el is in x-menubar.el
34 34
35 ;;; Code: 35 ;;; Code:
36 36
37 (defgroup menu nil 37 (defgroup menu nil
38 "Input from the menus." 38 "Input from the menus."
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)))
131 (if plistp 144 (if plistp
132 (let ((i 2) 145 (let ((i 2)
133 selp 146 selp
134 style 147 style
135 item) 148 item)