diff options
| author | Philip Kaludercic <philipk@posteo.net> | 2022-11-15 10:46:23 +0100 |
|---|---|---|
| committer | Philip Kaludercic <philipk@posteo.net> | 2022-11-17 20:55:04 +0100 |
| commit | 33263377767be2826b4b31695a2e310f2ab021d9 (patch) | |
| tree | 2b3cac0adcb30da343567d4fbf1c5cad10934c0f /lisp/emacs-lisp | |
| parent | 7ab556b57631cb28db86b89ba296bc0599d9a399 (diff) | |
| download | emacs-33263377767be2826b4b31695a2e310f2ab021d9.tar.gz emacs-33263377767be2826b4b31695a2e310f2ab021d9.tar.bz2 emacs-33263377767be2826b4b31695a2e310f2ab021d9.zip | |
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.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/package-vc.el | 2 |
1 files changed, 1 insertions, 1 deletions
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) |