1080 |
|
|
1081 |
(defvar compilation-mode-map |
(defvar compilation-mode-map |
1082 |
(let ((map (make-sparse-keymap))) |
(let ((map (make-sparse-keymap))) |
1083 |
(set-keymap-parent map compilation-minor-mode-map) |
(define-key map [mouse-2] 'compile-goto-error) |
1084 |
|
(define-key map "\C-c\C-c" 'compile-goto-error) |
1085 |
|
(define-key map "\C-m" 'compile-goto-error) |
1086 |
|
(define-key map "\C-c\C-k" 'kill-compilation) |
1087 |
|
(define-key map "\M-n" 'compilation-next-error) |
1088 |
|
(define-key map "\M-p" 'compilation-previous-error) |
1089 |
|
(define-key map "\M-{" 'compilation-previous-file) |
1090 |
|
(define-key map "\M-}" 'compilation-next-file) |
1091 |
|
|
1092 |
(define-key map " " 'scroll-up) |
(define-key map " " 'scroll-up) |
1093 |
(define-key map "\^?" 'scroll-down) |
(define-key map "\^?" 'scroll-down) |
1094 |
(define-key map "\C-c\C-f" 'next-error-follow-minor-mode) |
(define-key map "\C-c\C-f" 'next-error-follow-minor-mode) |
1095 |
|
|
1096 |
;; Set up the menu-bar |
;; Set up the menu-bar |
1097 |
(define-key map [menu-bar compilation] |
(let ((submap (make-sparse-keymap "Compile"))) |
1098 |
(cons "Compile" (make-sparse-keymap "Compile"))) |
(define-key map [menu-bar compilation] |
1099 |
|
(cons "Compile" submap)) |
1100 |
|
(set-keymap-parent submap compilation-menu-map)) |
1101 |
(define-key map [menu-bar compilation compilation-separator2] |
(define-key map [menu-bar compilation compilation-separator2] |
1102 |
'("----" . nil)) |
'("----" . nil)) |
1103 |
(define-key map [menu-bar compilation compilation-grep] |
(define-key map [menu-bar compilation compilation-grep] |