Note that :custom-show is obsolete.

Fixes: debbugs:75

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9d80cd12ff79e391801213da19c1341d5ed6a78c..9ca85524b8be84bd779ca25b8118f3adf926d57e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2011-07-07  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * 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 693b36040ea45d67a3bcaf0c4c5f42927b714507..820bcfeacba941f6810e3895e4e14de6cf2bde06 100644 (file)
--- 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)))