Fix package menu bug in marking obsolete packages for deletion.

* lisp/emacs-lisp/package.el (package-menu-mark-delete): Allow marking
obsolete packages for deletion.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a6a81ff0fb26b795034b52c84128dfd2c6a90b76..03423942f4f34da83fc18a387857e1f3f7476e66 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-08-28  Chong Yidong  <cyd@stupidchicken.com>
+
+       * emacs-lisp/package.el (package-menu-mark-delete): Allow marking
+       obsolete packages for deletion.
+
 2011-08-28  Christoph Scholtes  <cschol2112@googlemail.com>
 
        * help-mode.el (help-mode-map): Add special-mode-map to parent.

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 88282606aa8b7a9300017a1482c08e25e0872a6b..caf0ec2e8b8f664ffa8af4e8320b346d7ecf1900 100644 (file)
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1440,7 +1440,7 @@ If optional arg BUTTON is non-nil, describe its associated package."
 (defun package-menu-mark-delete (num)
   "Mark a package for deletion and move to the next line."
   (interactive "p")
-  (if (string-equal (package-menu-get-status) "installed")
+  (if (member (package-menu-get-status) '("installed" "obsolete"))
       (tabulated-list-put-tag "D" t)
     (forward-line)))