[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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 3d567a5517: Avoid duplicates in `package-activated-list',
Sam Steingold <=