Mercurial > emacs
comparison lisp/progmodes/compile.el @ 58491:2a47737d91b0
(compilation-mode-map): Don't inherit from compilation-minor-mode-map;
copy its bindings instead. But the menu bar Compile entry now does
inherit from compilation-menu-map.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 25 Nov 2004 03:01:10 +0000 |
| parents | 4b0746e87898 |
| children | dc83ecc1ac97 |
comparison
equal
deleted
inserted
replaced
| 58490:2176686c8a19 | 58491:2a47737d91b0 |
|---|---|
| 1078 "Keymap for compilation-message buttons.") | 1078 "Keymap for compilation-message buttons.") |
| 1079 (fset 'compilation-button-map compilation-button-map) | 1079 (fset 'compilation-button-map compilation-button-map) |
| 1080 | 1080 |
| 1081 (defvar compilation-mode-map | 1081 (defvar compilation-mode-map |
| 1082 (let ((map (make-sparse-keymap))) | 1082 (let ((map (make-sparse-keymap))) |
| 1083 (set-keymap-parent map compilation-minor-mode-map) | 1083 (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 | |
| 1084 (define-key map " " 'scroll-up) | 1092 (define-key map " " 'scroll-up) |
| 1085 (define-key map "\^?" 'scroll-down) | 1093 (define-key map "\^?" 'scroll-down) |
| 1086 (define-key map "\C-c\C-f" 'next-error-follow-minor-mode) | 1094 (define-key map "\C-c\C-f" 'next-error-follow-minor-mode) |
| 1087 | 1095 |
| 1088 ;; Set up the menu-bar | 1096 ;; Set up the menu-bar |
| 1089 (define-key map [menu-bar compilation] | 1097 (let ((submap (make-sparse-keymap "Compile"))) |
| 1090 (cons "Compile" (make-sparse-keymap "Compile"))) | 1098 (define-key map [menu-bar compilation] |
| 1099 (cons "Compile" submap)) | |
| 1100 (set-keymap-parent submap compilation-menu-map)) | |
| 1091 (define-key map [menu-bar compilation compilation-separator2] | 1101 (define-key map [menu-bar compilation compilation-separator2] |
| 1092 '("----" . nil)) | 1102 '("----" . nil)) |
| 1093 (define-key map [menu-bar compilation compilation-grep] | 1103 (define-key map [menu-bar compilation compilation-grep] |
| 1094 '("Search Files (grep)" . grep)) | 1104 '("Search Files (grep)" . grep)) |
| 1095 (define-key map [menu-bar compilation compilation-recompile] | 1105 (define-key map [menu-bar compilation compilation-recompile] |