# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1220748774 0
# Node ID 72d94dcf4480c785b094dd25da04bbf949c49925
# Parent  2fe3f883f235d9bc29fb5f20d2f957d6858724f8
(gud-stop-subjob): Using jdb, suspend threads
with gud-stop-subjob rather than exit debugger.

diff -r 2fe3f883f235 -r 72d94dcf4480 lisp/progmodes/gud.el
--- a/lisp/progmodes/gud.el	Sun Sep 07 00:51:18 2008 +0000
+++ b/lisp/progmodes/gud.el	Sun Sep 07 00:52:54 2008 +0000
@@ -139,7 +139,9 @@
   (with-current-buffer gud-comint-buffer
     (if (string-equal gud-target-name "emacs")
 	(comint-stop-subjob)
-      (comint-interrupt-subjob))))
+      (if (eq gud-minor-mode 'jdb)
+	  (gud-call "suspend")
+	(comint-interrupt-subjob)))))
 
 (easy-mmode-defmap gud-menu-map
   '(([help]     "Info (debugger)" . gud-goto-info)