From: Nick Roberts <nickrob@snap.net.nz>
Date: Tue, 16 Aug 2005 09:31:31 +0000 (+0000)
Subject: (gud-jump): Rework for gdb-ui.
X-Git-Tag: emacs-pretest-22.0.90~7560
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=761b053bac87fc0247e64abfaee11f1aed99743f;p=emacs.git

(gud-jump): Rework for gdb-ui.
---

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 22b0b7b36d6..21f61ec1dc8 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -586,7 +586,9 @@ and source-file directory for your debugger."
   (gud-def gud-nexti  "nexti %p"      nil   "Step one instruction (skip functions).")
   (gud-def gud-cont   "cont"         "\C-r" "Continue with display.")
   (gud-def gud-finish "finish"       "\C-f" "Finish executing current function.")
-  (gud-def gud-jump   "tbreak %f:%l\njump %f:%l" "\C-j" "Relocate execution address to line at point in source buffer.")
+  (gud-def gud-jump
+	   (progn (gud-call "tbreak %f:%l") (gud-call "jump %f:%l"))
+	   "\C-j" "Set execution address to current line.")
 
   (gud-def gud-up     "up %p"        "<" "Up N stack frames (numeric arg).")
   (gud-def gud-down   "down %p"      ">" "Down N stack frames (numeric arg).")