# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1132095348 0
# Node ID 67dbd801970799db90f708ca2e3fea619b43dcc2
# Parent  93ed49d5686df48e90b96da0c08b8ba5c169c62b
(gud-menu-map): Let [stop] stop program rather than kill it.
(gud-tool-bar-map): Likewise.  Move cont/until/finish buttons
to a more useful/logical place.

diff -r 93ed49d5686d -r 67dbd8019707 lisp/progmodes/gud.el
--- a/lisp/progmodes/gud.el	Tue Nov 15 22:55:18 2005 +0000
+++ b/lisp/progmodes/gud.el	Tue Nov 15 22:55:48 2005 +0000
@@ -142,7 +142,7 @@
     ([go]	menu-item "Run/Continue" gud-go
 		  :visible (and (not gud-running)
 				(eq gud-minor-mode 'gdba)))
-    ([stop]	menu-item "Stop" comint-interrupt-subjob
+    ([stop]	menu-item "Stop" comint-stop-subjob
 		  :visible (or (not (eq gud-minor-mode 'gdba))
 			       (and gud-running
 				    (eq gud-minor-mode 'gdba))))
@@ -224,17 +224,17 @@
 		     (gud-pstar . "gud/pstar")
 		     (gud-pp . "gud/pp")
 		     (gud-watch . "gud/watch")
-		     (gud-finish . "gud/finish")
-		     (gud-until . "gud/until")
-		     (gud-cont . "gud/cont")
 		     (gud-run . "gud/run")
 		     (gud-go . "gud/go")
-		     (comint-interrupt-subjob . "gud/stop")
+		     (comint-stop-subjob . "gud/stop")
 		     ;; gud-s, gud-si etc. instead of gud-step,
 		     ;; gud-stepi, to avoid file-name clashes on DOS
 		     ;; 8+3 filesystems.
+		     (gud-cont . "gud/cont")
+		     (gud-until . "gud/until")
 		     (gud-next . "gud/next")
 		     (gud-step . "gud/step")
+		     (gud-finish . "gud/finish")
 		     (gud-nexti . "gud/nexti")
 		     (gud-stepi . "gud/stepi")
 		     (gud-up . "gud/up")