[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gud.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gud.el |
Date: |
Tue, 11 Dec 2001 01:06:06 -0500 |
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)
- [Emacs-diffs] Changes to emacs/lisp/gud.el,
Richard M. Stallman <=