From 74b99d45fd43a12213709ffdbdbadab67b9fdfba Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 21 Nov 2005 00:02:31 +0000 Subject: [PATCH] (define-widget): Don't use declare for the doc-string-elt. --- lisp/ChangeLog | 6 ++++++ lisp/widget.el | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bd703735762..85208c9f50f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2005-11-20 Martin Rudalics (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 * newcomment.el (comment-enter-backward): Fix last fix. 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) -- 2.11.4.GIT