diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-12 16:33:00 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-12 16:33:00 +0200 |
| commit | 669ca750599979a64753979046619a798b44b414 (patch) | |
| tree | 7cfa76bdb5de0bf8aaf2f0e129ad6d52df9fb7ba /lisp/cus-edit.el | |
| parent | a5cc98c38e5f78499170e05077b1e297153bc498 (diff) | |
| download | emacs-669ca750599979a64753979046619a798b44b414.tar.gz emacs-669ca750599979a64753979046619a798b44b414.tar.bz2 emacs-669ca750599979a64753979046619a798b44b414.zip | |
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.
Diffstat (limited to 'lisp/cus-edit.el')
| -rw-r--r-- | lisp/cus-edit.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 6d47e607ae6..5fd93224f8a 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))) |