From 33263377767be2826b4b31695a2e310f2ab021d9 Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Tue, 15 Nov 2022 10:46:23 +0100 Subject: [PATCH] Avoid destructive manipulation of 'package-vc--archive-spec-alist' * lisp/emacs-lisp/package-vc.el (package-vc--desc->spec): Replace 'mapcar' with 'apply'. This is done to avoid unintentional cycles. --- lisp/emacs-lisp/package-vc.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el index 289f8e37ced..78d09400c9f 100644 --- a/lisp/emacs-lisp/package-vc.el +++ b/lisp/emacs-lisp/package-vc.el @@ -218,7 +218,7 @@ name for PKG-DESC." (if (package-desc-archive pkg-desc) (alist-get (intern (package-desc-archive pkg-desc)) package-vc--archive-spec-alist) - (mapcan #'append (mapcar #'cdr package-vc--archive-spec-alist))) + (apply #'append (mapcar #'cdr package-vc--archive-spec-alist))) nil nil #'string=)) (define-inline package-vc--query-spec (pkg-desc prop) -- 2.39.2