From: Richard M. Stallman Date: Tue, 10 Dec 2002 21:50:22 +0000 (+0000) Subject: (bashdb): Prompt now included parenthesis for subshell X-Git-Tag: ttn-vms-21-2-B4~12048 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9cd1fbc3a9f8e605fe333f0dda5dcdbf0a7e5300;p=emacs.git (bashdb): Prompt now included parenthesis for subshell levels. Fix erroneous print expression command, and fix typos. (perldb): Undo previous change in prompt regexp. --- 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) )