diff options
| author | Markus Rost | 2002-12-13 22:37:37 +0000 |
|---|---|---|
| committer | Markus Rost | 2002-12-13 22:37:37 +0000 |
| commit | 37bf89abbdf13845fbfc159c388715dc294d6488 (patch) | |
| tree | b6088bdd311b800c4498f46b6b2f7e140f2fa73d | |
| parent | e8f3c355cf98d3df5054ad1f277fc053ce65870e (diff) | |
| download | emacs-37bf89abbdf13845fbfc159c388715dc294d6488.tar.gz emacs-37bf89abbdf13845fbfc159c388715dc294d6488.zip | |
(compilation-menu-map): Use `kill-compilation' to stop compilation.
| -rw-r--r-- | lisp/progmodes/compile.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index a85551d20d4..44f1178c112 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el | |||
| @@ -1161,7 +1161,7 @@ exited abnormally with code %d\n" | |||
| 1161 | (defvar compilation-menu-map | 1161 | (defvar compilation-menu-map |
| 1162 | (let ((map (make-sparse-keymap "Errors"))) | 1162 | (let ((map (make-sparse-keymap "Errors"))) |
| 1163 | (define-key map [stop-subjob] | 1163 | (define-key map [stop-subjob] |
| 1164 | '("Stop Compilation" . comint-interrupt-subjob)) | 1164 | '("Stop Compilation" . kill-compilation)) |
| 1165 | (define-key map [compilation-mode-separator2] | 1165 | (define-key map [compilation-mode-separator2] |
| 1166 | '("----" . nil)) | 1166 | '("----" . nil)) |
| 1167 | (define-key map [compilation-mode-first-error] | 1167 | (define-key map [compilation-mode-first-error] |