(perldb): Add gud-until to list of commands.

Update gud-remove.

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index a0e22859457b5b37392c7739d9e3eddf81ddc2d0..ad43117e694cee6fcd5ddf531d8e7d25cfc4e8c5 100644 (file)
--- 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)