# HG changeset patch
# User Markus Rost <rost@math.uni-bielefeld.de>
# Date 1039819057 0
# Node ID 750e9e67d3e988f88e724bc71442e76be0728cc7
# Parent  ffa5e816fcadff187071facccb42eaa05fa82b04
(compilation-menu-map): Use `kill-compilation' to stop compilation.

diff -r ffa5e816fcad -r 750e9e67d3e9 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Fri Dec 13 19:52:46 2002 +0000
+++ b/lisp/progmodes/compile.el	Fri Dec 13 22:37:37 2002 +0000
@@ -1161,7 +1161,7 @@
 (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]