[Emacs-diffs] trunk r115906: emacs-lisp/package.el (package-delete): Delete package completely

[Bastien Guerry]

------------------------------------------------------------
revno: 115906
revision-id: address@hidden
parent: address@hidden
committer: Bastien Guerry <address@hidden>
branch nick: trunk
timestamp: Tue 2014-01-07 11:58:03 +0100
message:
  emacs-lisp/package.el (package-delete): Delete package completely
  
  * emacs-lisp/package.el (package-delete): Also delete the package
  name from `package-alist', not its description only.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/package.el     package.el-20100617020707-ybavz666awsxwin6-2

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-01-07 08:38:58 +0000
+++ b/lisp/ChangeLog    2014-01-07 10:58:03 +0000
@@ -1,3 +1,8 @@
+2014-01-07  Bastien Guerry  <address@hidden>
+
+       * emacs-lisp/package.el (package-delete): Also delete the package
+       name from `package-alist', not its description only.
+
 2014-01-07  Glenn Morris  <address@hidden>
 
        * help.el (view-external-packages):

=== modified file 'lisp/emacs-lisp/package.el'
--- a/lisp/emacs-lisp/package.el        2014-01-01 07:43:34 +0000
+++ b/lisp/emacs-lisp/package.el        2014-01-07 10:58:03 +0000
@@ -1231,7 +1231,7 @@
            (delete-file signed-file)))
       ;; Update package-alist.
       (let* ((name (package-desc-name pkg-desc)))
-        (delete pkg-desc (assq name package-alist)))
+       (delete (delete pkg-desc (assq name package-alist)) package-alist))
       (message "Package `%s' deleted." (package-desc-full-name pkg-desc)))))
 
 (defun package-archive-base (desc)