From af0905c84a232b034b4f792847aa05531f8cdefc Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Thu, 7 Jul 2011 17:59:00 +0200 Subject: [PATCH] Note that :custom-show is obsolete. Fixes: debbugs:75 --- lisp/ChangeLog | 2 ++ lisp/cus-edit.el | 2 ++ 2 files changed, 4 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9d80cd12ff7..9ca85524b8b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2011-07-07 Lars Magne Ingebrigtsen + * cus-edit.el (custom-show): Marked as obsolete. + * net/network-stream.el (network-stream-open-starttls): If gnutls negotiation fails, then possibly try again with a non-encrypted connection (bug#9017). diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 693b36040ea..820bcfeacba 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -1829,6 +1829,7 @@ item in another window.\n\n")) ;; We want simple widgets to be displayed by default, but complex ;; widgets to be hidden. +;; This widget type is obsolete as of Emacs 24.1. (widget-put (get 'item 'widget-type) :custom-show t) (widget-put (get 'editable-field 'widget-type) :custom-show (lambda (_widget value) @@ -2257,6 +2258,7 @@ and `face'." (setq widget nil))))) (widget-setup)) +(make-obsolete 'custom-show "this widget type is no longer supported." "24.1") (defun custom-show (widget value) "Non-nil if WIDGET should be shown with VALUE by default." (let ((show (widget-get widget :custom-show))) -- 2.39.5