[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#44849: [PATCH] Make XEmacs compat variable warning-level-aliases obs
|
From: |
Stefan Kangas |
|
Subject: |
bug#44849: [PATCH] Make XEmacs compat variable warning-level-aliases obsolete |
|
Date: |
Tue, 24 Nov 2020 12:15:56 -0800 |
"Basil L. Contovounesios" <contovob@tcd.ie> writes:
> 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?
To avoid this:
(and (assq level warning-level-aliases)
(cdr (assq level warning-level-aliases)))