[Emacs-diffs] master 517ab62: * lisp/emacs-lisp/package.el (package-menu--perform-transaction):

[Artur Malabarba]

branch: master
commit 517ab6238a362bd0dda9af14681f5590da1df6de
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>

    * lisp/emacs-lisp/package.el (package-menu--perform-transaction):
    
    Properly delete packages.  (Bug#20836)
---
 lisp/emacs-lisp/package.el |   24 +++++++++++-------------
 1 files changed, 11 insertions(+), 13 deletions(-)

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index cf15099..6ce89f9 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.