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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9c37f630d72f8482870db4f025a9d42ae342f444..91ffbcff96be3544192c9f11ddc680876ac2ab67 100644 (file)
--- 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 92223b337330429a82c7647f473da1f0ee0ca86b..f0b1537e2b3fae2ed1c468c0b9d97dd9fece5cbe 100644 (file)
--- 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