Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/widget.el	Mon Aug 13 10:11:42 2007 +0200
+++ b/lisp/widget.el	Mon Aug 13 10:12:37 2007 +0200
@@ -64,6 +64,8 @@
 * (apply 'widget-create CLASS ARGS)
 
 The third argument DOC is a documentation string for the widget."
+  (check-argument-type 'symbolp name)
+  (check-argument-type 'symbolp class)
   (put name 'widget-type (cons class args))
   (put name 'widget-documentation doc)
   name)