# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1276792873 25200
# Node ID 9087d6113b47290513d37c78914657124a3c0ebb
# Parent  cc5e488bdbb4a4674834a065f55d953b502159d3
* lisp/emacs-lisp/package.el (package-menu-mode-map): Add a menu.

diff -r cc5e488bdbb4 -r 9087d6113b47 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Jun 17 16:44:34 2010 +0200
+++ b/lisp/ChangeLog	Thu Jun 17 09:41:13 2010 -0700
@@ -1,3 +1,7 @@
+2010-06-17  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* emacs-lisp/package.el (package-menu-mode-map): Add a menu.
+
 2010-06-17  Agustín Martín  <agustin.martin@hispalinux.es>
 
 	* ispell.el (ispell-aspell-find-dictionary): Fix regexp for
diff -r cc5e488bdbb4 -r 9087d6113b47 lisp/emacs-lisp/package.el
--- a/lisp/emacs-lisp/package.el	Thu Jun 17 16:44:34 2010 +0200
+++ b/lisp/emacs-lisp/package.el	Thu Jun 17 09:41:13 2010 -0700
@@ -1041,7 +1041,8 @@
 ;;;; Package menu mode.
 
 (defvar package-menu-mode-map
-  (let ((map (make-keymap)))
+  (let ((map (make-keymap))
+	(menu-map (make-sparse-keymap "Package")))
     (suppress-keymap map)
     (define-key map "q" 'quit-window)
     (define-key map "n" 'next-line)
@@ -1056,6 +1057,51 @@
     (define-key map "x" 'package-menu-execute)
     (define-key map "h" 'package-menu-quick-help)
     (define-key map "?" 'package-menu-view-commentary)
+    (define-key map [menu-bar package-menu] (cons "Package" menu-map))
+    (define-key menu-map [mq]
+      '(menu-item "Quit" quit-window
+		  :help "Quit package selection"))
+    (define-key menu-map [s1] '("--"))
+    (define-key menu-map [mn]
+      '(menu-item "Next" next-line
+		  :help "Next Line"))
+    (define-key menu-map [mp]
+      '(menu-item "Previous" previous-line
+		  :help "Previous Line"))
+    (define-key menu-map [s2] '("--"))
+    (define-key menu-map [mu]
+      '(menu-item "Unmark" package-menu-mark-unmark
+		  :help "Clear any marks on a package and move to the next line"))
+    (define-key menu-map [munm]
+      '(menu-item "Unmark backwards" package-menu-backup-unmark
+		  :help "Back up one line and clear any marks on that package"))
+    (define-key menu-map [md]
+      '(menu-item "Mark for deletion" package-menu-mark-delete
+		  :help "Mark a package for deletion and move to the next line"))
+    (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 [s3] '("--"))
+    (define-key menu-map [mg]
+      '(menu-item "Update package list" package-menu-revert
+		  :help "Update the list of packages"))
+    (define-key menu-map [mr]
+      '(menu-item "Refresh package list" package-menu-refresh
+		  :help "Download the ELPA archive"))
+    (define-key menu-map [s4] '("--"))
+    (define-key menu-map [mt]
+      '(menu-item "Mark obsolete packages" package-menu-mark-obsolete-for-deletion
+		  :help "Mark all obsolete packages for deletion"))
+    (define-key menu-map [mx]
+      '(menu-item "Execute actions" package-menu-execute
+		  :help "Perform all the marked actions"))
+    (define-key menu-map [s5] '("--"))
+    (define-key menu-map [mh]
+      '(menu-item "Help" package-menu-quick-help
+		  :help "Show short key binding help for package-menu-mode"))
+    (define-key menu-map [mc]
+      '(menu-item "View Commentary" package-menu-view-commentary
+		  :help "Display information about this package"))
     map)
   "Local keymap for `package-menu-mode' buffers.")