From: Markus Rost <rost@math.uni-bielefeld.de>
Date: Fri, 13 Dec 2002 22:37:37 +0000 (+0000)
Subject: (compilation-menu-map): Use `kill-compilation' to stop compilation.
X-Git-Tag: ttn-vms-21-2-B4~12019
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=37bf89abbdf13845fbfc159c388715dc294d6488;p=emacs.git

(compilation-menu-map): Use `kill-compilation' to stop compilation.
---

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"
 (defvar compilation-menu-map
   (let ((map (make-sparse-keymap "Errors")))
     (define-key map [stop-subjob]
-      '("Stop Compilation" . comint-interrupt-subjob))
+      '("Stop Compilation" . kill-compilation))
     (define-key map [compilation-mode-separator2]
       '("----" . nil))
     (define-key map [compilation-mode-first-error]