Mercurial > emacs

changeset 48795:480e8dc8fc37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(bashdb): Prompt now included parenthesis for subshell levels. Fix erroneous print expression command, and fix typos. (perldb): Undo previous change in prompt regexp.
author Richard M. Stallman <rms@gnu.org>
date Tue, 10 Dec 2002 21:49:24 +0000
parents 837d37faadcf
children 1a1e6959acbe
files lisp/gud.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gud.el	Tue Dec 10 19:01:36 2002 +0000
+++ b/lisp/gud.el	Tue Dec 10 21:49:24 2002 +0000
@@ -1249,7 +1249,7 @@
 ;  (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 @@
   (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)
   )