(bashdb): Prompt now included parenthesis for subshell

levels. Fix erroneous print expression command, and fix typos.
(perldb): Undo previous change in prompt regexp.

2 files changed, 10 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5fc4b8d85ca..690ded3bfad 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-12-10  R. Bernstein  <rocky@panix.com>
+
+        * gud.el (bashdb): Prompt now included parenthesis for subshell
+        levels. Fix erroneous print expression command, and fix typos. 
+        (perldb): Undo previous change in prompt regexp.
+        
 2002-12-10  Steven Tamm  <steventamm@mac.com>
 
         * generic-x.el (javascript-generic-mode): Added C style block
diff --git a/lisp/gud.el b/lisp/gud.el
index c24ccb02741..e3c2c9f41bf 100644
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -1249,7 +1249,7 @@ and source-file directory for your debugger."
 ;  (gud-def gud-down   "down %p"      ">" "Down N stack frames (numeric arg).")
   (gud-def gud-print  "%e"           "\C-p" "Evaluate perl expression at point.")
 
-  (setq comint-prompt-regexp "^  DB<+(*[0-9])*+>+ ")
+  (setq comint-prompt-regexp "^  DB<+[0-9]+>+ ")
   (setq paragraph-start comint-prompt-regexp)
   (run-hooks 'perldb-mode-hook))
 
@@ -2123,12 +2123,12 @@ and source-file directory for your debugger."
   (gud-def gud-finish "finish"     "\C-f" "Finish executing current function.")
   (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  "pe %e"      "\C-p" "Evaluate bash expression at point.")
+  (gud-def gud-print  "x %e"      "\C-p" "Evaluate BASH expression at point.")
 
   ;; Is this right?
-  (gud-def gud-statement "eval %e" "\C-e" "Execute Python statement at point.")
+  (gud-def gud-statement "eval %e" "\C-e" "Execute BASH statement at point.")
 
-  (setq comint-prompt-regexp "^bashdb<+[0-9]*>+ ")
+  (setq comint-prompt-regexp "^bashdb<+(*[0-9]+)*>+ ")
   (setq paragraph-start comint-prompt-regexp)
   (run-hooks 'bashdb-mode-hook)
   )