mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

* lisp/emacs-lisp/package.el (package-menu-mode-map): Add a menu.

Browse Source
This commit is contained in:
Dan Nicolaescu 2010-06-17 09:41:13 -07:00
parent 26508c03ce
commit 64eba874f5
2 changed files with 51 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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

48
lisp/emacs-lisp/package.el
View File

@ -1041,7 +1041,8 @@ The variable `package-load-list' controls which packages to load."
;;;; 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 @@ The variable `package-load-list' controls which packages to load."
(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.")