diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2003-09-22 22:02:51 +0000 |
|---|---|---|
| committer | Nick Roberts <nickrob@snap.net.nz> | 2003-09-22 22:02:51 +0000 |
| commit | 1dd52b8210a638b2e6b2b01f05ebbab4e7bb95a0 (patch) | |
| tree | 54dc08afe1fa1fc9f3e353a03fa31b476fc12ca2 | |
| parent | 81fc7b45ed7a42af5ab3df45e014cd2bbf82690c (diff) | |
| download | emacs-1dd52b8210a638b2e6b2b01f05ebbab4e7bb95a0.tar.gz | |
(perldb): Add gud-until to list of commands.
Update gud-remove.
| -rw-r--r-- | lisp/progmodes/gud.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index a0e22859457..ad43117e694 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -96,9 +96,9 @@ Used to grey out relevant toolbar icons.") ([run] menu-item "Run" gud-run :enable (and (not gud-running) (memq gud-minor-mode '(gdba gdb dbx jdb)))) - ([goto] menu-item "Continue to selection" gud-until + ([until] menu-item "Continue to selection" gud-until :enable (and (not gud-running) - (memq gud-minor-mode '(gdba gdb)))) + (memq gud-minor-mode '(gdba gdb perldb)))) ([remove] menu-item "Remove Breakpoint" gud-remove :enable (not gud-running)) ([tbreak] menu-item "Temporary Breakpoint" gud-tbreak @@ -1254,7 +1254,7 @@ and source-file directory for your debugger." (set (make-local-variable 'gud-minor-mode) 'perldb) (gud-def gud-break "b %l" "\C-b" "Set breakpoint at current line.") - (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") (gud-def gud-step "s" "\C-s" "Step one source line with display.") (gud-def gud-next "n" "\C-n" "Step one line (skip functions).") (gud-def gud-cont "c" "\C-r" "Continue with display.") @@ -1262,6 +1262,8 @@ and source-file directory for your debugger." ; (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 "p %e" "\C-p" "Evaluate perl expression at point.") + (gud-def gud-until "c %l" "\C-u" "Continue to current line.") + (setq comint-prompt-regexp "^ DB<+[0-9]+>+ ") (setq paragraph-start comint-prompt-regexp) |