From: Sam Steingold <sds@gnu.org>
Date: Thu, 26 May 2022 20:18:09 +0000 (-0400)
Subject: Avoid duplicates in `package-activated-list'
X-Git-Tag: emacs-29.0.90~1910^2~409
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3d567a5517ca461071d169635cfce3430630b56f;p=emacs.git

Avoid duplicates in `package-activated-list'

* lisp/emacs-lisp/package.el (package-quickstart-refresh): Calling
`package-activate-all' twice leads to duplicates in
`package-activated-list' - avoid that.
---

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 1cebab36f25..92438698536 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -4295,8 +4295,9 @@ activations need to be changed, such as when `package-load-list' is modified."
           (insert ")\n")))
       (pp `(defvar package-activated-list) (current-buffer))
       (pp `(setq package-activated-list
-                 (append ',(mapcar #'package-desc-name package--quickstart-pkgs)
-                         package-activated-list))
+                 (delete-dups
+                  (append ',(mapcar #'package-desc-name package--quickstart-pkgs)
+                          package-activated-list)))
           (current-buffer))
       (let ((info-dirs (butlast Info-directory-list)))
         (when info-dirs