Mercurial > emacs

changeset 67059:005159df0f00

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(define-widget): Don't use declare for the doc-string-elt.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 21 Nov 2005 00:01:13 +0000
parents 65266d675973
children 481c28eca12d
files lisp/widget.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/widget.el	Mon Nov 21 00:01:06 2005 +0000
+++ b/lisp/widget.el	Mon Nov 21 00:01:13 2005 +0000
@@ -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 @@
 * (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)