mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/widget.el (define-widget): Use `declare' (which does work now).

Browse source 
(widget-plist-member): Mark as obsolete.
This commit is contained in:
Stefan Monnier 2016-05-23 19:57:46 -04:00
parent 5e17f50911
commit 4121458245
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/widget.el
View file

@ -68,7 +68,6 @@
;; :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.
@ -80,9 +79,10 @@ create identical widgets:
* (widget-create NAME)
* (apply \\='widget-create CLASS ARGS)
* (apply #\\='widget-create CLASS ARGS)
The third argument DOC is a documentation string for the widget."
(declare (doc-string 3))
;;
(unless (or (null doc) (stringp doc))
(error "widget documentation must be nil or a string."))
@ -91,7 +91,7 @@ The third argument DOC is a documentation string for the widget."
name)
;; This is used by external widget code (in W3, at least).
(defalias 'widget-plist-member 'plist-member)
(define-obsolete-function-alias 'widget-plist-member #'plist-member "26.1")
;;; The End.