[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r105607: Fix package menu bug in mark
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r105607: Fix package menu bug in marking obsolete packages for deletion. |
Date: |
Sun, 28 Aug 2011 17:32:50 -0400 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r105607: Fix package menu bug in marking obsolete packages for deletion.,
Chong Yidong <=