[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master fc450db226 1/4: Make alias widget-visibility-value-create obsolet
From: |
Stefan Kangas |
Subject: |
master fc450db226 1/4: Make alias widget-visibility-value-create obsolete |
Date: |
Sat, 6 Aug 2022 08:38:21 -0400 (EDT) |
branch: master
commit fc450db22617ac4d964a64c992a6f4b7581b9cd7
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
Make alias widget-visibility-value-create obsolete
* lisp/wid-edit.el (widget-visibility-value-create): Make compat
alias obsolete.
---
lisp/wid-edit.el | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 5362618247..ec2eb146e9 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -3043,12 +3043,10 @@ The following properties have special meanings for this
widget:
: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'.
@@ -4143,9 +4141,9 @@ is inline."
(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)