[Emacs-diffs] Changes to emacs/lisp/widget.el

[Stefan Monnier]

Index: emacs/lisp/widget.el
diff -c emacs/lisp/widget.el:1.21 emacs/lisp/widget.el:1.22
*** emacs/lisp/widget.el:1.21   Mon Oct 24 16:42:33 2005
--- emacs/lisp/widget.el        Mon Nov 21 00:01:13 2005
***************
*** 71,76 ****
--- 71,77 ----
  ;;  :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,91 ****
  * (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)
--- 86,91 ----