Mercurial > hg > xemacs-beta

comparison lisp/menubar.el @ 259:11cf20601dec r20-5b28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b28
author cvs
date Mon, 13 Aug 2007 10:23:02 +0200
parents f955c73f5258
children 19dcec799385
comparison
equal deleted inserted replaced
258:58424f6abf56 259:11cf20601dec
1 ;;; menubar.el --- Menubar support for XEmacs 1 ;;; menubar.el --- Menubar support for XEmacs
2 2
3 ;; Copyright (C) 1991-4, 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1991-4, 1997-1998 Free Software Foundation, Inc.
4 ;; Copyright (C) 1995 Tinker Systems and INS Engineering Corp. 4 ;; Copyright (C) 1995 Tinker Systems and INS Engineering Corp.
5 ;; Copyright (C) 1995, 1996 Ben Wing. 5 ;; Copyright (C) 1995, 1996 Ben Wing.
6 6
7 ;; Maintainer: XEmacs Development Team 7 ;; Maintainer: XEmacs Development Team
8 ;; Keywords: internal, extensions, dumped 8 ;; Keywords: internal, extensions, dumped
120 ((consp menuitem) 120 ((consp menuitem)
121 (check-menu-syntax menuitem)) 121 (check-menu-syntax menuitem))
122 ((vectorp menuitem) 122 ((vectorp menuitem)
123 (let ((L (length menuitem)) 123 (let ((L (length menuitem))
124 plistp) 124 plistp)
125 (and (< L 3) 125 (and (< L 2)
126 (signal 'error 126 (signal 'error
127 (list "button descriptors must be at least 3 long" 127 (list "button descriptors must be at least 2 long"
128 menuitem))) 128 menuitem)))
129 (setq plistp (or (>= L 5) (keywordp (aref menuitem 2)))) 129 (setq plistp (or (>= L 5)
130 (and (> L 2) (keywordp (aref menuitem 2)))))
130 (or (stringp (aref menuitem 0)) 131 (or (stringp (aref menuitem 0))
131 (signal 'error 132 (signal 'error
132 (list 133 (list
133 "first element of a button must be a string (the label)" 134 "first element of a button must be a string (the label)"
134 menuitem))) 135 menuitem)))