Mercurial > emacs
comparison lisp/progmodes/compile.el @ 58503:dc83ecc1ac97
*** empty log message ***
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 25 Nov 2004 03:22:56 +0000 |
| parents | 2a47737d91b0 |
| children | ad6398d47add f2ebccfa87d4 |
comparison
equal
deleted
inserted
replaced
| 58502:ffc46016071f | 58503:dc83ecc1ac97 |
|---|---|
| 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 ;; Don't inherit from compilation-minor-mode-map, | |
| 1084 ;; because that introduces a menu bar item we don't want. | |
| 1085 ;; That confuses C-down-mouse-3. | |
| 1083 (define-key map [mouse-2] 'compile-goto-error) | 1086 (define-key map [mouse-2] 'compile-goto-error) |
| 1084 (define-key map "\C-c\C-c" 'compile-goto-error) | 1087 (define-key map "\C-c\C-c" 'compile-goto-error) |
| 1085 (define-key map "\C-m" 'compile-goto-error) | 1088 (define-key map "\C-m" 'compile-goto-error) |
| 1086 (define-key map "\C-c\C-k" 'kill-compilation) | 1089 (define-key map "\C-c\C-k" 'kill-compilation) |
| 1087 (define-key map "\M-n" 'compilation-next-error) | 1090 (define-key map "\M-n" 'compilation-next-error) |