:on "Hide"
:off-glyph "right"
:off "Show"
- :value-create 'widget-visibility-value-create
+ :value-create 'widget-toggle-value-create
:action 'widget-toggle-action
:match (lambda (_widget _value) t))
-(defalias 'widget-visibility-value-create 'widget-toggle-value-create)
-
;;; The `documentation-link' Widget.
;;
;; This is a helper widget for `documentation-string'.
(setq help-echo (funcall help-echo widget)))
(if help-echo (message "%s" (eval help-echo)))))
-;;; Obsolete.
-
(define-obsolete-function-alias 'widget-sublist #'seq-subseq "28.1")
+(define-obsolete-function-alias 'widget-visibility-value-create
+ #'widget-toggle-value-create "29.1")
(provide 'wid-edit)