From 9cd1fbc3a9f8e605fe333f0dda5dcdbf0a7e5300 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 10 Dec 2002 21:50:22 +0000 Subject: [PATCH] (bashdb): Prompt now included parenthesis for subshell levels. Fix erroneous print expression command, and fix typos. (perldb): Undo previous change in prompt regexp. --- lisp/ChangeLog | 6 ++++++ lisp/gud.el | 8 ++++---- 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 + + * 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 * 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) ) -- 2.39.5