[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master f590fc2: (package-menu-execute): Remove reference t
From: |
Artur Malabarba |
Subject: |
[Emacs-diffs] master f590fc2: (package-menu-execute): Remove reference to remove-dups |
Date: |
Thu, 21 May 2015 20:27:46 +0000 |
branch: master
commit f590fc2760f8b8180a4caf77cea81840e37fe29e
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>
(package-menu-execute): Remove reference to remove-dups
---
lisp/emacs-lisp/package.el | 7 ++++---
1 files changed, 4 insertions(+), 3 deletions(-)
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 79f37e7..cf7ff9f 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -2993,9 +2993,10 @@ Optional argument NOQUERY non-nil means do not ask the
user to confirm."
"]")))
(message (replace-regexp-in-string "__" "ing" message-template)
"started")
;; Packages being upgraded are not marked as selected.
- (package--save-selected-packages
- (remove-dups (append (mapcar #'package-desc-name .install)
- package-selected-packages)))
+ (when .install
+ (dolist (p .install)
+ (cl-pushnew (package-desc-name p) package-selected-packages))
+ (package--save-selected-packages package-selected-packages))
(package-menu--perform-transaction install-list delete-list)
(when package-selected-packages
(if-let ((removable (package--removable-packages)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master f590fc2: (package-menu-execute): Remove reference to remove-dups,
Artur Malabarba <=