From: Chong Yidong <cyd@stupidchicken.com>
Date: Thu, 15 Sep 2011 02:05:17 +0000 (-0400)
Subject: Add package-menu-mark-upgrades to the Package Menu menu bar map.
X-Git-Tag: emacs-pretest-24.0.90~104^2~41
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d770725a3df5529f046198b2f7014918e13a06b1;p=emacs.git

Add package-menu-mark-upgrades to the Package Menu menu bar map.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9c37f630d72..91ffbcff96b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -10,7 +10,7 @@
 	package-menu-get-status instead of a regexp search.
 	(package-menu-get-status): Use tabulated-list-entry.
 	(package-menu-mark-upgrades): New command.
-	(package-menu-mode-map): Bind it to U.
+	(package-menu-mode-map): Bind it to U.  Add it to menu bar.
 	(package-menu-execute): Do installation before deletion.
 	(package-menu-refresh, package-menu-execute): Use derived-mode-p
 	instead of checking major-mode.
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 92223b33733..f0b1537e2b3 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1305,6 +1305,9 @@ If optional arg NO-ACTIVATE is non-nil, don't activate packages."
     (define-key menu-map [mi]
       '(menu-item "Mark for install" package-menu-mark-install
 		  :help "Mark a package for installation and move to the next line"))
+    (define-key menu-map [mupgrades]
+      '(menu-item "Mark upgradable packages" package-menu-mark-upgrades
+		  :help "Mark packages that have a newer version for upgrading"))
     (define-key menu-map [s3] '("--"))
     (define-key menu-map [mg]
       '(menu-item "Update package list" revert-buffer