From d2412492cad18c1ffd91d3f6dbd3b08b8859e18a Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Fri, 28 Aug 2020 17:29:31 +0200 Subject: [PATCH] Make XEmacs compat aliases obsolete in warnings.el * lisp/emacs-lisp/warnings.el (display-warning-minimum-level) (log-warning-minimum-level): Make XEmacs compat aliases into obsolete aliases for 'warning-minimum-level' and 'warning-minimum-log-level'. --- lisp/emacs-lisp/warnings.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/warnings.el b/lisp/emacs-lisp/warnings.el index 07b45433301..b1fd6ed80ad 100644 --- a/lisp/emacs-lisp/warnings.el +++ b/lisp/emacs-lisp/warnings.el @@ -68,7 +68,8 @@ Each element looks like (ALIAS . LEVEL) and defines ALIAS as equivalent to LEVEL. LEVEL must be defined in `warning-levels'; it may not itself be an alias.") -(defvaralias 'display-warning-minimum-level 'warning-minimum-level) +(define-obsolete-variable-alias 'display-warning-minimum-level + 'warning-minimum-level "28.1") (defcustom warning-minimum-level :warning "Minimum severity level for displaying the warning buffer. If a warning's severity level is lower than this, @@ -78,7 +79,8 @@ is not immediately displayed. See also `warning-minimum-log-level'." (const :warning) (const :debug)) :version "22.1") -(defvaralias 'log-warning-minimum-level 'warning-minimum-log-level) +(define-obsolete-variable-alias 'log-warning-minimum-level + 'warning-minimum-log-level "28.1") (defcustom warning-minimum-log-level :warning "Minimum severity level for logging a warning. If a warning severity level is lower than this, -- 2.39.2