# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1064268171 0
# Node ID a0055e15e603ae670189d33c2d1c83b8ce5078a5
# Parent  caedc2d7c42c43ebdee1c8bb4ef2d3196ad15b10
(perldb): Add gud-until to list of commands.
Update gud-remove.

diff -r caedc2d7c42c -r a0055e15e603 lisp/progmodes/gud.el
--- a/lisp/progmodes/gud.el	Mon Sep 22 22:00:57 2003 +0000
+++ b/lisp/progmodes/gud.el	Mon Sep 22 22:02:51 2003 +0000
@@ -96,9 +96,9 @@
     ([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 @@
   (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 @@
 ;  (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)