[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#44849: [PATCH] Make XEmacs compat variable warning-level-aliases obs
From: |
Basil L. Contovounesios |
Subject: |
bug#44849: [PATCH] Make XEmacs compat variable warning-level-aliases obsolete |
Date: |
Tue, 24 Nov 2020 19:52:55 +0000 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux) |
Stefan Kangas <stefan@marxist.se> writes:
> @@ -256,8 +257,10 @@ display-warning
> (setq level :warning))
> (unless buffer-name
> (setq buffer-name "*Warnings*"))
> - (if (assq level warning-level-aliases)
> - (setq level (cdr (assq level warning-level-aliases))))
> + (with-suppressed-warnings ((obsolete warning-level-aliases))
> + (when-let ((new (cdr-safe (assq level warning-level-aliases))))
Why the cdr-safe?
Thanks,
--
Basil