[Emacs-diffs] Changes to emacs/lisp/gud.el

[Richard M. Stallman]

Index: emacs/lisp/gud.el
diff -c emacs/lisp/gud.el:1.149 emacs/lisp/gud.el:1.150
*** emacs/lisp/gud.el:1.149     Tue Sep 11 14:28:22 2001
--- emacs/lisp/gud.el   Tue Dec 11 01:06:06 2001
***************
*** 406,411 ****
--- 406,413 ----
    (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,2283 ****
                                               (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))))
         ((eq key ?e)
          (setq subst (gud-find-c-expr)))
         ((eq key ?a)
--- 2273,2285 ----
                                               (buffer-file-name)
                                             (car frame)))))
         ((eq key ?l)
!         (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)