Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
54ea2a0d
Commit
54ea2a0d
authored
Jun 17, 2010
by
Juanma Barranquero
Browse files
emacs-lisp/package.el (package-menu-mode-map): Move initialization into declaration.
parent
69582fcd
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
20 additions
and
19 deletions
+20
-19
lisp/ChangeLog
lisp/ChangeLog
+3
-0
lisp/emacs-lisp/package.el
lisp/emacs-lisp/package.el
+17
-19
No files found.
lisp/ChangeLog
View file @
54ea2a0d
2010-06-17 Juanma Barranquero <lekktu@gmail.com>
* emacs-lisp/package.el (package-menu-mode-map):
Move initialization into declaration.
* menu-bar.el (menu-bar-options-menu): Fix typo in menu entry.
2010-06-17 Chong Yidong <cyd@stupidchicken.com>
...
...
lisp/emacs-lisp/package.el
View file @
54ea2a0d
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment