96 |
([run] menu-item "Run" gud-run |
([run] menu-item "Run" gud-run |
97 |
:enable (and (not gud-running) |
:enable (and (not gud-running) |
98 |
(memq gud-minor-mode '(gdba gdb dbx jdb)))) |
(memq gud-minor-mode '(gdba gdb dbx jdb)))) |
99 |
([goto] menu-item "Continue to selection" gud-until |
([until] menu-item "Continue to selection" gud-until |
100 |
:enable (and (not gud-running) |
:enable (and (not gud-running) |
101 |
(memq gud-minor-mode '(gdba gdb)))) |
(memq gud-minor-mode '(gdba gdb perldb)))) |
102 |
([remove] menu-item "Remove Breakpoint" gud-remove |
([remove] menu-item "Remove Breakpoint" gud-remove |
103 |
:enable (not gud-running)) |
:enable (not gud-running)) |
104 |
([tbreak] menu-item "Temporary Breakpoint" gud-tbreak |
([tbreak] menu-item "Temporary Breakpoint" gud-tbreak |
1254 |
(set (make-local-variable 'gud-minor-mode) 'perldb) |
(set (make-local-variable 'gud-minor-mode) 'perldb) |
1255 |
|
|
1256 |
(gud-def gud-break "b %l" "\C-b" "Set breakpoint at current line.") |
(gud-def gud-break "b %l" "\C-b" "Set breakpoint at current line.") |
1257 |
(gud-def gud-remove "d %l" "\C-d" "Remove breakpoint at current line") |
(gud-def gud-remove "B %l" "\C-d" "Remove breakpoint at current line") |
1258 |
(gud-def gud-step "s" "\C-s" "Step one source line with display.") |
(gud-def gud-step "s" "\C-s" "Step one source line with display.") |
1259 |
(gud-def gud-next "n" "\C-n" "Step one line (skip functions).") |
(gud-def gud-next "n" "\C-n" "Step one line (skip functions).") |
1260 |
(gud-def gud-cont "c" "\C-r" "Continue with display.") |
(gud-def gud-cont "c" "\C-r" "Continue with display.") |
1262 |
; (gud-def gud-up "up %p" "<" "Up N stack frames (numeric arg).") |
; (gud-def gud-up "up %p" "<" "Up N stack frames (numeric arg).") |
1263 |
; (gud-def gud-down "down %p" ">" "Down N stack frames (numeric arg).") |
; (gud-def gud-down "down %p" ">" "Down N stack frames (numeric arg).") |
1264 |
(gud-def gud-print "p %e" "\C-p" "Evaluate perl expression at point.") |
(gud-def gud-print "p %e" "\C-p" "Evaluate perl expression at point.") |
1265 |
|
(gud-def gud-until "c %l" "\C-u" "Continue to current line.") |
1266 |
|
|
1267 |
|
|
1268 |
(setq comint-prompt-regexp "^ DB<+[0-9]+>+ ") |
(setq comint-prompt-regexp "^ DB<+[0-9]+>+ ") |
1269 |
(setq paragraph-start comint-prompt-regexp) |
(setq paragraph-start comint-prompt-regexp) |