diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2005-08-16 09:31:31 +0000 |
|---|---|---|
| committer | Nick Roberts <nickrob@snap.net.nz> | 2005-08-16 09:31:31 +0000 |
| commit | 761b053bac87fc0247e64abfaee11f1aed99743f (patch) | |
| tree | 6f7790e1f8f90d851dec6c5e5936da83b1d20bce /lisp | |
| parent | 58d75444547eaca095c6b149694605052f8586be (diff) | |
| download | emacs-761b053bac87fc0247e64abfaee11f1aed99743f.tar.gz | |
(gud-jump): Rework for gdb-ui.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/gud.el | 4 |
1 files changed, 3 insertions, 1 deletions
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).") |