From 517ab6238a362bd0dda9af14681f5590da1df6de Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Thu, 18 Jun 2015 09:23:54 +0100 Subject: [PATCH] * lisp/emacs-lisp/package.el (package-menu--perform-transaction): Properly delete packages. (Bug#20836) --- lisp/emacs-lisp/package.el | 24 +++++++++++------------- 1 file changed, 11 insertions(+), 13 deletions(-) diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index cf1509947bd..6ce89f9890b 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -2988,19 +2988,17 @@ objects removed." (redisplay 'force) ;; Don't mark as selected, `package-menu-execute' already ;; does that. - (package-install pkg 'dont-select))) - ;; Once there are no more packages to install, proceed to - ;; deletion. - (let ((package-menu--transaction-status ":Deleting")) - (force-mode-line-update) - (redisplay 'force) - (dolist (elt (package--sort-by-dependence delete-list)) - (condition-case-unless-debug err - (let ((inhibit-message package-menu-async)) - (package-delete elt nil 'nosave)) - (error (message "Error trying to delete `%s': %S" - (package-desc-full-name elt) - err))))))) + (package-install pkg 'dont-select)))) + (let ((package-menu--transaction-status ":Deleting")) + (force-mode-line-update) + (redisplay 'force) + (dolist (elt (package--sort-by-dependence delete-list)) + (condition-case-unless-debug err + (let ((inhibit-message package-menu-async)) + (package-delete elt nil 'nosave)) + (error (message "Error trying to delete `%s': %S" + (package-desc-full-name elt) + err)))))) (defun package--update-selected-packages (add remove) "Update the `package-selected-packages' list according to ADD and REMOVE. -- 2.39.2