Mercurial > emacs
diff lisp/progmodes/compile.el @ 94775:b51bb57e843b
(compilation-minor-mode-map, compilation-mode-map):
Bind "g" to recompile and "q" to quit-window.
(grep-mode-map): Use `set-keymap-parent' to connect it
to `compilation-minor-mode-map' (instead of an explicit `cons').
| author | Sam Steingold <sds@gnu.org> |
|---|---|
| date | Thu, 08 May 2008 17:28:05 +0000 |
| parents | 52b7a8c22af5 |
| children | edc51d72cb17 |
line wrap: on
line diff
--- a/lisp/progmodes/compile.el Thu May 08 15:59:16 2008 +0000 +++ b/lisp/progmodes/compile.el Thu May 08 17:28:05 2008 +0000 @@ -1357,6 +1357,8 @@ (define-key map "\M-p" 'compilation-previous-error) (define-key map "\M-{" 'compilation-previous-file) (define-key map "\M-}" 'compilation-next-file) + (define-key map "g" 'recompile) ; revert + (define-key map "q" 'quit-window) ;; Set up the menu-bar (define-key map [menu-bar compilation] (cons "Errors" compilation-menu-map)) @@ -1401,6 +1403,8 @@ (define-key map "\M-}" 'compilation-next-file) (define-key map "\t" 'compilation-next-error) (define-key map [backtab] 'compilation-previous-error) + (define-key map "g" 'recompile) ; revert + (define-key map "q" 'quit-window) (define-key map " " 'scroll-up) (define-key map "\^?" 'scroll-down)