406 |
(gud-def gud-next "next %p" "\C-n" "Step one line (skip functions).") |
(gud-def gud-next "next %p" "\C-n" "Step one line (skip functions).") |
407 |
(gud-def gud-cont "cont" "\C-r" "Continue with display.") |
(gud-def gud-cont "cont" "\C-r" "Continue with display.") |
408 |
(gud-def gud-finish "finish" "\C-f" "Finish executing current function.") |
(gud-def gud-finish "finish" "\C-f" "Finish executing current function.") |
409 |
|
(gud-def gud-jump "tbreak %f:%l\njump %f:%l" "\C-j" "Relocate execution address to line at point in source buffer.") |
410 |
|
|
411 |
(gud-def gud-up "up %p" "<" "Up N stack frames (numeric arg).") |
(gud-def gud-up "up %p" "<" "Up N stack frames (numeric arg).") |
412 |
(gud-def gud-down "down %p" ">" "Down N stack frames (numeric arg).") |
(gud-def gud-down "down %p" ">" "Down N stack frames (numeric arg).") |
413 |
(gud-def gud-print "print %e" "\C-p" "Evaluate C expression at point.") |
(gud-def gud-print "print %e" "\C-p" "Evaluate C expression at point.") |
2273 |
(buffer-file-name) |
(buffer-file-name) |
2274 |
(car frame))))) |
(car frame))))) |
2275 |
((eq key ?l) |
((eq key ?l) |
2276 |
(setq subst (if insource |
(setq subst (int-to-string |
2277 |
(save-excursion |
(if insource |
2278 |
(beginning-of-line) |
(save-restriction |
2279 |
(save-restriction |
(widen) |
2280 |
(widen) |
(+ (count-lines 1 (point)) |
2281 |
(int-to-string (1+ (count-lines 1 (point)))))) |
(if (bolp) 1 0))) |
2282 |
(cdr frame)))) |
(cdr frame))))) |
2283 |
((eq key ?e) |
((eq key ?e) |
2284 |
(setq subst (gud-find-c-expr))) |
(setq subst (gud-find-c-expr))) |
2285 |
((eq key ?a) |
((eq key ?a) |