[Emacs-diffs] /srv/bzr/emacs/trunk r105018: Note that :custom-show is obsolete.

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 105018
fixes bug(s): http://debbugs.gnu.org/75
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Thu 2011-07-07 17:59:00 +0200
message:
  Note that :custom-show is obsolete.
modified:
  lisp/ChangeLog
  lisp/cus-edit.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-07-07 15:14:17 +0000
+++ b/lisp/ChangeLog    2011-07-07 15:59:00 +0000
@@ -1,5 +1,7 @@
 2011-07-07  Lars Magne Ingebrigtsen  <address@hidden>
 
+       * 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).

=== modified file 'lisp/cus-edit.el'
--- a/lisp/cus-edit.el  2011-06-30 01:39:52 +0000
+++ b/lisp/cus-edit.el  2011-07-07 15:59:00 +0000
@@ -1829,6 +1829,7 @@
 ;; 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 @@
             (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)))