master 3326337776 30/42: Avoid destructive manipulation of 'package-vc--archive-spec-alist'

[Philip Kaludercic]

branch: master
commit 33263377767be2826b4b31695a2e310f2ab021d9
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    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 289f8e37ce..78d09400c9 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)