Mercurial > emacs

comparison lisp/gud.el @ 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 672c6eac16e7
children aa7d3d1a21a3
comparison
equal deleted inserted replaced
48794:837d37faadcf 48795:480e8dc8fc37
1247 ; (gud-def gud-finish "finish" "\C-f" "Finish executing current function.") 1247 ; (gud-def gud-finish "finish" "\C-f" "Finish executing current function.")
1248 ; (gud-def gud-up "up %p" "<" "Up N stack frames (numeric arg).") 1248 ; (gud-def gud-up "up %p" "<" "Up N stack frames (numeric arg).")
1249 ; (gud-def gud-down "down %p" ">" "Down N stack frames (numeric arg).") 1249 ; (gud-def gud-down "down %p" ">" "Down N stack frames (numeric arg).")
1250 (gud-def gud-print "%e" "\C-p" "Evaluate perl expression at point.") 1250 (gud-def gud-print "%e" "\C-p" "Evaluate perl expression at point.")
1251 1251
1252 (setq comint-prompt-regexp "^ DB<+(*[0-9])*+>+ ") 1252 (setq comint-prompt-regexp "^ DB<+[0-9]+>+ ")
1253 (setq paragraph-start comint-prompt-regexp) 1253 (setq paragraph-start comint-prompt-regexp)
1254 (run-hooks 'perldb-mode-hook)) 1254 (run-hooks 'perldb-mode-hook))
1255 1255
1256 ;; ====================================================================== 1256 ;; ======================================================================
1257 ;; pdb (Python debugger) functions 1257 ;; pdb (Python debugger) functions
2121 (gud-def gud-next "next" "\C-n" "Step one line (skip functions).") 2121 (gud-def gud-next "next" "\C-n" "Step one line (skip functions).")
2122 (gud-def gud-cont "continue" "\C-r" "Continue with display.") 2122 (gud-def gud-cont "continue" "\C-r" "Continue with display.")
2123 (gud-def gud-finish "finish" "\C-f" "Finish executing current function.") 2123 (gud-def gud-finish "finish" "\C-f" "Finish executing current function.")
2124 (gud-def gud-up "up %p" "<" "Up N stack frames (numeric arg).") 2124 (gud-def gud-up "up %p" "<" "Up N stack frames (numeric arg).")
2125 (gud-def gud-down "down %p" ">" "Down N stack frames (numeric arg).") 2125 (gud-def gud-down "down %p" ">" "Down N stack frames (numeric arg).")
2126 (gud-def gud-print "pe %e" "\C-p" "Evaluate bash expression at point.") 2126 (gud-def gud-print "x %e" "\C-p" "Evaluate BASH expression at point.")
2127 2127
2128 ;; Is this right? 2128 ;; Is this right?
2129 (gud-def gud-statement "eval %e" "\C-e" "Execute Python statement at point.") 2129 (gud-def gud-statement "eval %e" "\C-e" "Execute BASH statement at point.")
2130 2130
2131 (setq comint-prompt-regexp "^bashdb<+[0-9]*>+ ") 2131 (setq comint-prompt-regexp "^bashdb<+(*[0-9]+)*>+ ")
2132 (setq paragraph-start comint-prompt-regexp) 2132 (setq paragraph-start comint-prompt-regexp)
2133 (run-hooks 'bashdb-mode-hook) 2133 (run-hooks 'bashdb-mode-hook)
2134 ) 2134 )
2135 2135
2136 ;; 2136 ;;