diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2010-06-17 13:02:42 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2010-06-17 13:02:42 +0200 |
| commit | 54ea2a0d41668006195fb9a0891ec9d5421b2e37 (patch) | |
| tree | 9c07386ea25a1b714b136487131a8d0957073a15 /lisp/emacs-lisp | |
| parent | 69582fcd16d902bddecf0bda2a781e1a23404d46 (diff) | |
| download | emacs-54ea2a0d41668006195fb9a0891ec9d5421b2e37.tar.gz | |
emacs-lisp/package.el (package-menu-mode-map): Move initialization into declaration.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/package.el | 36 |
1 files changed, 17 insertions, 19 deletions
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index 8632fcd5647..8a9bcbe8f0b 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -1040,27 +1040,25 @@ The variable `package-load-list' controls which packages to load." ;;;; Package menu mode. -(defvar package-menu-mode-map nil +(defvar package-menu-mode-map + (let ((map (make-keymap))) + (suppress-keymap map) + (define-key map "q" 'quit-window) + (define-key map "n" 'next-line) + (define-key map "p" 'previous-line) + (define-key map "u" 'package-menu-mark-unmark) + (define-key map "\177" 'package-menu-backup-unmark) + (define-key map "d" 'package-menu-mark-delete) + (define-key map "i" 'package-menu-mark-install) + (define-key map "g" 'package-menu-revert) + (define-key map "r" 'package-menu-refresh) + (define-key map "~" 'package-menu-mark-obsolete-for-deletion) + (define-key map "x" 'package-menu-execute) + (define-key map "h" 'package-menu-quick-help) + (define-key map "?" 'package-menu-view-commentary) + map) "Local keymap for `package-menu-mode' buffers.") -(unless package-menu-mode-map - (setq package-menu-mode-map (make-keymap)) - (suppress-keymap package-menu-mode-map) - (define-key package-menu-mode-map "q" 'quit-window) - (define-key package-menu-mode-map "n" 'next-line) - (define-key package-menu-mode-map "p" 'previous-line) - (define-key package-menu-mode-map "u" 'package-menu-mark-unmark) - (define-key package-menu-mode-map "\177" 'package-menu-backup-unmark) - (define-key package-menu-mode-map "d" 'package-menu-mark-delete) - (define-key package-menu-mode-map "i" 'package-menu-mark-install) - (define-key package-menu-mode-map "g" 'package-menu-revert) - (define-key package-menu-mode-map "r" 'package-menu-refresh) - (define-key package-menu-mode-map "~" - 'package-menu-mark-obsolete-for-deletion) - (define-key package-menu-mode-map "x" 'package-menu-execute) - (define-key package-menu-mode-map "h" 'package-menu-quick-help) - (define-key package-menu-mode-map "?" 'package-menu-view-commentary)) - (defvar package-menu-sort-button-map (let ((map (make-sparse-keymap))) (define-key map [header-line mouse-1] 'package-menu-sort-by-column) |