diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-05-21 21:26:57 +0100 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-05-21 21:27:22 +0100 |
| commit | f590fc2760f8b8180a4caf77cea81840e37fe29e (patch) | |
| tree | 07c4922f03a7540fa6ed824355205c7c74665a65 /lisp/emacs-lisp/package.el | |
| parent | fdad335016c5e830f90bb8da3ed4f1365273a524 (diff) | |
| download | emacs-f590fc2760f8b8180a4caf77cea81840e37fe29e.tar.gz emacs-f590fc2760f8b8180a4caf77cea81840e37fe29e.tar.bz2 emacs-f590fc2760f8b8180a4caf77cea81840e37fe29e.zip | |
(package-menu-execute): Remove reference to remove-dups
Diffstat (limited to 'lisp/emacs-lisp/package.el')
| -rw-r--r-- | 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 79f37e7def2..cf7ff9f6852 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))) |