From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 11 Dec 2001 06:06:06 +0000 (+0000)
Subject: (gdb): Define and bind gud-jump.
X-Git-Tag: ttn-vms-21-2-B4~17807
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=38eba48567d1d45803af42fe4728c9c4814fae37;p=emacs.git

(gdb): Define and bind gud-jump.
---

diff --git a/lisp/gud.el b/lisp/gud.el
index b03f2099059..b54754dfcb9 100644
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -406,6 +406,8 @@ and source-file directory for your debugger."
   (gud-def gud-next   "next %p"      "\C-n" "Step one line (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-up     "up %p"        "<" "Up N stack frames (numeric arg).")
   (gud-def gud-down   "down %p"      ">" "Down N stack frames (numeric arg).")
   (gud-def gud-print  "print %e"     "\C-p" "Evaluate C expression at point.")
@@ -2271,13 +2273,13 @@ Obeying it means displaying in another window the specified file and line."
 					       (buffer-file-name)
 					     (car frame)))))
 	 ((eq key ?l)
-	  (setq subst (if insource
-			  (save-excursion
-			    (beginning-of-line)
-			    (save-restriction
-			      (widen)
-			      (int-to-string (1+ (count-lines 1 (point))))))
-			(cdr frame))))
+	  (setq subst (int-to-string
+		       (if insource
+			   (save-restriction
+			     (widen)
+			     (+ (count-lines 1 (point))
+				(if (bolp) 1 0)))
+			 (cdr frame)))))
 	 ((eq key ?e)
 	  (setq subst (gud-find-c-expr)))
 	 ((eq key ?a)