(gud-stop-subjob): Using jdb, suspend threads
authorNick Roberts <nickrob@snap.net.nz>
Sun, 7 Sep 2008 00:52:54 +0000 (00:52 +0000)
committerNick Roberts <nickrob@snap.net.nz>
Sun, 7 Sep 2008 00:52:54 +0000 (00:52 +0000)
with gud-stop-subjob rather than exit debugger.

lisp/progmodes/gud.el

index 00afda923eb4a56a653d4b98b2fba1ed95bd4e81..4e56383f3a43bc64bcc15723b48418afcd64e0a4 100644 (file)
@@ -139,7 +139,9 @@ Used to grey out relevant toolbar icons.")
   (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)