/[emacs]/emacs/lisp/gud.el
ViewVC logotype

Diff of /emacs/lisp/gud.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.149 by eliz, Tue Sep 11 18:28:22 2001 UTC revision 1.150 by rms, Tue Dec 11 06:06:06 2001 UTC
# Line 406  and source-file directory for your debug Line 406  and source-file directory for your debug
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.")
# Line 2271  Obeying it means displaying in another w Line 2273  Obeying it means displaying in another w
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)

Legend:
Removed from v.1.149  
changed lines
  Added in v.1.150

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26