From eb3c3d46e06647976bfebe43dfb18f729cda0d26 Mon Sep 17 00:00:00 2001 From: Felix Dietrich Date: Thu, 10 Mar 2022 04:02:58 +0100 Subject: [PATCH 06/10] =?UTF-8?q?Remove=20unnecessary=20=E2=80=98cons?= =?UTF-8?q?=E2=80=99=20(move=20=E2=80=98list=E2=80=99=20one=20element=20to?= =?UTF-8?q?=20the=20left)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit (cons something (list something-else)) is the same as (list something something-else). --- lisp/net/mailcap.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/net/mailcap.el b/lisp/net/mailcap.el index 165945040d..2d93720a56 100644 --- a/lisp/net/mailcap.el +++ b/lisp/net/mailcap.el @@ -724,7 +724,7 @@ to supply to the test." (cond ((null old-major) ; New major area (set storage - (cons (cons major (list (cons minor info))) + (cons (list major (cons minor info)) (symbol-value storage)))) ((and cur-minor (not (assq 'test info)) ; No test info, replace completely -- 2.35.1