(package-menu-execute): Remove reference to remove-dups

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 79f37e7def24ca4046dd82e26ba247abb97d1d39..cf7ff9f685234cc479baba67e2bb066304de6676 100644 (file)
--- 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)))