Mercurial > emacs
comparison lisp/progmodes/gud.el @ 52586:a0055e15e603
(perldb): Add gud-until to list of commands.
Update gud-remove.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Mon, 22 Sep 2003 22:02:51 +0000 |
| parents | 84470539e96f |
| children | 7fbe60aaf857 |
comparison
equal
deleted
inserted
replaced
| 52585:caedc2d7c42c | 52586:a0055e15e603 |
|---|---|
| 94 (easy-mmode-defmap gud-menu-map | 94 (easy-mmode-defmap gud-menu-map |
| 95 '(([refresh] "Refresh" . gud-refresh) | 95 '(([refresh] "Refresh" . gud-refresh) |
| 96 ([run] menu-item "Run" gud-run | 96 ([run] menu-item "Run" gud-run |
| 97 :enable (and (not gud-running) | 97 :enable (and (not gud-running) |
| 98 (memq gud-minor-mode '(gdba gdb dbx jdb)))) | 98 (memq gud-minor-mode '(gdba gdb dbx jdb)))) |
| 99 ([goto] menu-item "Continue to selection" gud-until | 99 ([until] menu-item "Continue to selection" gud-until |
| 100 :enable (and (not gud-running) | 100 :enable (and (not gud-running) |
| 101 (memq gud-minor-mode '(gdba gdb)))) | 101 (memq gud-minor-mode '(gdba gdb perldb)))) |
| 102 ([remove] menu-item "Remove Breakpoint" gud-remove | 102 ([remove] menu-item "Remove Breakpoint" gud-remove |
| 103 :enable (not gud-running)) | 103 :enable (not gud-running)) |
| 104 ([tbreak] menu-item "Temporary Breakpoint" gud-tbreak | 104 ([tbreak] menu-item "Temporary Breakpoint" gud-tbreak |
| 105 :enable (memq gud-minor-mode '(gdba gdb sdb xdb bashdb))) | 105 :enable (memq gud-minor-mode '(gdba gdb sdb xdb bashdb))) |
| 106 ([break] menu-item "Set Breakpoint" gud-break | 106 ([break] menu-item "Set Breakpoint" gud-break |
| 1252 (gud-common-init command-line 'gud-perldb-massage-args | 1252 (gud-common-init command-line 'gud-perldb-massage-args |
| 1253 'gud-perldb-marker-filter) | 1253 'gud-perldb-marker-filter) |
| 1254 (set (make-local-variable 'gud-minor-mode) 'perldb) | 1254 (set (make-local-variable 'gud-minor-mode) 'perldb) |
| 1255 | 1255 |
| 1256 (gud-def gud-break "b %l" "\C-b" "Set breakpoint at current line.") | 1256 (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") | 1257 (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.") | 1258 (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).") | 1259 (gud-def gud-next "n" "\C-n" "Step one line (skip functions).") |
| 1260 (gud-def gud-cont "c" "\C-r" "Continue with display.") | 1260 (gud-def gud-cont "c" "\C-r" "Continue with display.") |
| 1261 ; (gud-def gud-finish "finish" "\C-f" "Finish executing current function.") | 1261 ; (gud-def gud-finish "finish" "\C-f" "Finish executing current function.") |
| 1262 ; (gud-def gud-up "up %p" "<" "Up N stack frames (numeric arg).") | 1262 ; (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).") | 1263 ; (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.") | 1264 (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 | |
| 1265 | 1267 |
| 1266 (setq comint-prompt-regexp "^ DB<+[0-9]+>+ ") | 1268 (setq comint-prompt-regexp "^ DB<+[0-9]+>+ ") |
| 1267 (setq paragraph-start comint-prompt-regexp) | 1269 (setq paragraph-start comint-prompt-regexp) |
| 1268 (run-hooks 'perldb-mode-hook)) | 1270 (run-hooks 'perldb-mode-hook)) |
| 1269 | 1271 |