diff options
| author | Artur Malabarba | 2015-05-21 21:26:57 +0100 |
|---|---|---|
| committer | Artur Malabarba | 2015-05-21 21:27:22 +0100 |
| commit | f590fc2760f8b8180a4caf77cea81840e37fe29e (patch) | |
| tree | 07c4922f03a7540fa6ed824355205c7c74665a65 | |
| parent | fdad335016c5e830f90bb8da3ed4f1365273a524 (diff) | |
| download | emacs-f590fc2760f8b8180a4caf77cea81840e37fe29e.tar.gz emacs-f590fc2760f8b8180a4caf77cea81840e37fe29e.zip | |
(package-menu-execute): Remove reference to remove-dups
| -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." | |||
| 2993 | "]"))) | 2993 | "]"))) |
| 2994 | (message (replace-regexp-in-string "__" "ing" message-template) "started") | 2994 | (message (replace-regexp-in-string "__" "ing" message-template) "started") |
| 2995 | ;; Packages being upgraded are not marked as selected. | 2995 | ;; Packages being upgraded are not marked as selected. |
| 2996 | (package--save-selected-packages | 2996 | (when .install |
| 2997 | (remove-dups (append (mapcar #'package-desc-name .install) | 2997 | (dolist (p .install) |
| 2998 | package-selected-packages))) | 2998 | (cl-pushnew (package-desc-name p) package-selected-packages)) |
| 2999 | (package--save-selected-packages package-selected-packages)) | ||
| 2999 | (package-menu--perform-transaction install-list delete-list) | 3000 | (package-menu--perform-transaction install-list delete-list) |
| 3000 | (when package-selected-packages | 3001 | (when package-selected-packages |
| 3001 | (if-let ((removable (package--removable-packages))) | 3002 | (if-let ((removable (package--removable-packages))) |