[Emacs-diffs] /srv/bzr/emacs/trunk r105607: Fix package menu bug in marking obsolete packages for deletion.

[Chong Yidong]

------------------------------------------------------------
revno: 105607
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sun 2011-08-28 17:32:50 -0400
message:
  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.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/package.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-08-28 19:05:26 +0000
+++ b/lisp/ChangeLog    2011-08-28 21:32:50 +0000
@@ -1,3 +1,8 @@
+2011-08-28  Chong Yidong  <address@hidden>
+
+       * emacs-lisp/package.el (package-menu-mark-delete): Allow marking
+       obsolete packages for deletion.
+
 2011-08-28  Christoph Scholtes  <address@hidden>
 
        * help-mode.el (help-mode-map): Add special-mode-map to parent.

=== modified file 'lisp/emacs-lisp/package.el'
--- a/lisp/emacs-lisp/package.el        2011-08-26 15:53:50 +0000
+++ b/lisp/emacs-lisp/package.el        2011-08-28 21:32:50 +0000
@@ -1440,7 +1440,7 @@
 (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)))