Correct default "break" command. Add a "kill" command. Correct some docstrings.

diff --git a/dbgr/common/cmds.el b/dbgr/common/cmds.el
index 3e181ece97365b9e8963b4bdc9a3c3fa0408a138..45c9313b5e53c6e04b4a9175e6ff59f078b594d2 100644 (file)
--- a/dbgr/common/cmds.el
+++ b/dbgr/common/cmds.el
@@ -46,7 +46,7 @@ if none has been set in the command hash."
 (defun dbgr-cmd-break(arg)
   "Set a breakpoint at the current line"
   (interactive "p")
-  (dbgr-cmd-remap arg "break" "break %X:l" "b")
+  (dbgr-cmd-remap arg "break" "break %X:%l" "b")
   )
 
 (defun dbgr-cmd-continue(&optional arg)
@@ -84,6 +84,12 @@ If no argument specified use 0 or the most recent frame."
     (dbgr-cmd-remap arg "frame" "frame %p" "f" t t)
 )
 
+(defun dbgr-cmd-kill(arg)
+  "kill debugger process"
+  (interactive "p")
+  (dbgr-cmd-remap arg "kill" "kill" "k" nil nil 't)
+  )
+
 (defun dbgr-cmd-newer-frame(&optional arg)
     "Move the current frame to a newer (more recent) frame. 
 With a numeric argument move that many levels forward."

diff --git a/dbgr/common/track.el b/dbgr/common/track.el
index 0b964ea99aa5e251454f9fce132de6484397c8e4..90e31163d497965bfc00cac1d835a226991001d3 100644 (file)
--- a/dbgr/common/track.el
+++ b/dbgr/common/track.el
@@ -429,13 +429,13 @@ described by PT."
   )
   
 (defun dbgr-goto-debugger-backtrace-line (pt)
-  "Display the location mentioned by the Perl backtrace line
+  "Display the location mentioned by the debugger backtrace line
 described by PT."
   (interactive "d")
   (dbgr-goto-line-for-pt pt "debugger-backtrace"))
 
 (defun dbgr-goto-lang-backtrace-line (pt)
-  "Display the location mentioned by the Perl backtrace line
+  "Display the location mentioned by the programming-language backtrace line
 described by PT."
   (interactive "d")
   (dbgr-goto-line-for-pt pt "lang-backtrace"))