[Emacs-diffs] master 060dc14: emacs-lisp/package.el: Fix previous patch

[Artur Malabarba]

branch: master
commit 060dc145902f048bed22919232ce0e7b0e22d4b1
Author: Thierry Volpiatto <address@hidden>
Commit: Artur Malabarba <address@hidden>

    emacs-lisp/package.el: Fix previous patch
---
 lisp/ChangeLog             |    6 ++++++
 lisp/emacs-lisp/package.el |   13 +++++++------
 2 files changed, 13 insertions(+), 6 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cba38ff..846da3b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2015-02-02  Thierry Volpiatto  <address@hidden>
+
+       * emacs-lisp/package.el (package-delete): Remove package from
+       package-selected-packages.
+       (package-autoremove): Remove unneeded variable.
+
 2015-02-01  Artur Malabarba  <address@hidden>
 
        * emacs-lisp/package.el (package-selected-packages): Fix :type
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 3b22962..d95bc5e 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1505,6 +1505,10 @@ elsewhere."
              (delete pkg-desc pkgs)
              (unless (cdr pkgs)
                (setq package-alist (delq pkgs package-alist))))
+           ;; Update package-selected-packages.
+           (when (memq name package-selected-packages)
+             (customize-save-variable
+              'package-selected-packages (remove name 
package-selected-packages)))
            (message "Package `%s' deleted." (package-desc-full-name 
pkg-desc))))))
 
 ;;;###autoload
@@ -1515,12 +1519,9 @@ Packages that are no more needed by other packages in
 `package-selected-packages' and their dependencies
 will be deleted."
   (interactive)
-  (let* (old-direct
-         (needed (cl-loop for p in package-selected-packages
-                          if (assq p package-alist)
-                          append (package--get-deps p) into lst
-                          else do (push p old-direct)
-                          finally return lst)))
+  (let ((needed (cl-loop for p in package-selected-packages
+                      if (assq p package-alist)
+                      append (package--get-deps p))))
     (cl-loop for p in (mapcar #'car package-alist)
              unless (or (memq p needed)
                         (memq p package-selected-packages))