[Emacs-diffs] master 669ca75: Suppress warning about obsolete function custom-show

[Lars Ingebrigtsen]

branch: master
commit 669ca750599979a64753979046619a798b44b414
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    Suppress warning about obsolete function custom-show
    
    * lisp/cus-edit.el (custom-variable-value-create): Suppress
    warning about obsolete function custom-show.  The widget this
    supports has been obsolete since Emacs 24, but we should perhaps
    be very conservative about removing widget types, so suppress the
    warning instead of removing the widget type.
---
 lisp/cus-edit.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 6d47e60..5fd9322 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -2570,7 +2570,8 @@ try matching its doc string against 
`custom-guess-doc-alist'."
 
     ;; If we don't know the state, see if we need to edit it in lisp form.
     (unless state
-      (setq state (if (custom-show type value) 'unknown 'hidden)))
+      (with-suppressed-warnings ((obsolete custom-show))
+        (setq state (if (custom-show type value) 'unknown 'hidden))))
     (when (eq state 'unknown)
       (unless (widget-apply conv :match value)
        (setq form 'mismatch)))