(define-widget): Don't use declare for the doc-string-elt.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bd70373576207fa5bd92085d6a6c53f13802267d..85208c9f50f8ea76e5b8ee7817d438d40cad1c8d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2005-11-20  Martin Rudalics  <rudalics@gmx.at>  (tiny change)
+
+       * custom.el (defgroup): Add doc-string-elt info.
+
+       * widget.el (define-widget): Don't use declare for the doc-string-elt.
+
 2005-11-20  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * newcomment.el (comment-enter-backward): Fix last fix.

diff --git a/lisp/widget.el b/lisp/widget.el
index 1985efb7cd63251c6e65b47e303187e9eff5c6d5..f99429b59105636e89360b61f283543decfb16c1 100644 (file)
--- a/lisp/widget.el
+++ b/lisp/widget.el
@@ -71,6 +71,7 @@
 ;;  :button-face-get :button-face :value-face :keymap :entry-from
 ;;  :entry-to :help-echo :documentation-property :tab-order)
 
+(put 'define-widget 'doc-string-elt 3)  ;`declare' doesn't work in functions.
 (defun define-widget (name class doc &rest args)
   "Define a new widget type named NAME from CLASS.
 
@@ -85,7 +86,6 @@ create identical widgets:
 * (apply 'widget-create CLASS ARGS)
 
 The third argument DOC is a documentation string for the widget."
-  (declare (doc-string 3))
   (put name 'widget-type (cons class args))
   (put name 'widget-documentation doc)
   name)