# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1124184691 0
# Node ID b2d245bb54da0fb98fc882191fa7f43f468193ea
# Parent  cd88ad84f59587c16905985cc5143af9b99192a6
(gud-jump): Rework for gdb-ui.

diff -r cd88ad84f595 -r b2d245bb54da lisp/progmodes/gud.el
--- a/lisp/progmodes/gud.el	Tue Aug 16 09:30:35 2005 +0000
+++ b/lisp/progmodes/gud.el	Tue Aug 16 09:31:31 2005 +0000
@@ -586,7 +586,9 @@
   (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).")