summaryrefslogtreecommitdiff
path: root/lisp/widget.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/widget.el')
-rw-r--r--lisp/widget.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/widget.el b/lisp/widget.el
index 1985efb7cd6..f99429b5910 100644
--- 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)