emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 3d567a5517: Avoid duplicates in `package-activated-list'


From: Sam Steingold
Subject: master 3d567a5517: Avoid duplicates in `package-activated-list'
Date: Thu, 26 May 2022 16:19:34 -0400 (EDT)

branch: master
commit 3d567a5517ca461071d169635cfce3430630b56f
Author: Sam Steingold <sds@gnu.org>
Commit: Sam Steingold <sds@gnu.org>

    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.
---
 lisp/emacs-lisp/package.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 1cebab36f2..9243869853 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]