From: Chong Yidong <cyd@stupidchicken.com>
Date: Sun, 28 Aug 2011 21:32:50 +0000 (-0400)
Subject: Fix package menu bug in marking obsolete packages for deletion.
X-Git-Tag: emacs-pretest-24.0.90~104^2~152^2~40
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fb87e0fb94a5ec2018c677a91c62eebea5a978eb;p=emacs.git

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 a6a81ff0fb2..03423942f4f 100644
--- 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 88282606aa8..caf0ec2e8b8 100644
--- 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)))