From aa5f2640223db603ae158d2177d1bfc73aa0f2f9 Mon Sep 17 00:00:00 2001 From: Felix Dietrich Date: Thu, 10 Mar 2022 03:36:17 +0100 Subject: [PATCH 03/10] =?UTF-8?q?Remove=20the=20superfluous=20=E2=80=98set?= =?UTF-8?q?cdr=E2=80=99=20call?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Note the duplication of code in the second and last cond alternatives: both setcdr calls are identical. --- lisp/net/mailcap.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lisp/net/mailcap.el b/lisp/net/mailcap.el index c30b9e096d..bb34fb86c0 100644 --- a/lisp/net/mailcap.el +++ b/lisp/net/mailcap.el @@ -737,8 +737,7 @@ to supply to the test." (setcdr cur-minor info)) (t (setcdr old-major - (setcdr old-major - (cons (cons minor info) (cdr old-major)))))))) + (cons (cons minor info) (cdr old-major))))))) (defun mailcap-add (type viewer &optional test) "Add VIEWER as a handler for TYPE. -- 2.35.1