Mercurial > hg > xemacs-beta

comparison lisp/widget.el @ 227:0e522484dd2a r20-5b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b12
author cvs
date Mon, 13 Aug 2007 10:12:37 +0200
parents 41ff10fd062f
children 8626e4521993
comparison
equal deleted inserted replaced
226:eea38c7ad7b4 227:0e522484dd2a
62 * (widget-create NAME) 62 * (widget-create NAME)
63 63
64 * (apply 'widget-create CLASS ARGS) 64 * (apply 'widget-create CLASS ARGS)
65 65
66 The third argument DOC is a documentation string for the widget." 66 The third argument DOC is a documentation string for the widget."
67 (check-argument-type 'symbolp name)
68 (check-argument-type 'symbolp class)
67 (put name 'widget-type (cons class args)) 69 (put name 'widget-type (cons class args))
68 (put name 'widget-documentation doc) 70 (put name 'widget-documentation doc)
69 name) 71 name)
70 72
71 ;;; The End. 73 ;;; The End.