diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2011-08-28 17:32:50 -0400 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2011-08-28 17:32:50 -0400 |
| commit | fb87e0fb94a5ec2018c677a91c62eebea5a978eb (patch) | |
| tree | 16dc520e6b147c4ee554b0f61f875144f6e683b2 /lisp/emacs-lisp | |
| parent | e2aeef63a646f08348c53b1ad94384f427593209 (diff) | |
| download | emacs-fb87e0fb94a5ec2018c677a91c62eebea5a978eb.tar.gz emacs-fb87e0fb94a5ec2018c677a91c62eebea5a978eb.tar.bz2 emacs-fb87e0fb94a5ec2018c677a91c62eebea5a978eb.zip | |
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.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/package.el | 2 |
1 files changed, 1 insertions, 1 deletions
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))) |