emacs-diffs
[Top][All Lists]
Advanced

[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)
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]