diff options
| author | Nick Roberts | 2003-09-17 18:33:38 +0000 |
|---|---|---|
| committer | Nick Roberts | 2003-09-17 18:33:38 +0000 |
| commit | 8a7bc7b8036666697b8598760a41e4b40751b5cd (patch) | |
| tree | 7cbe7d1cbae74140ff0feeffaf1b8a6006326af8 | |
| parent | a85d03b77902d6a775150b4d7f5e9000ff26d138 (diff) | |
| download | emacs-8a7bc7b8036666697b8598760a41e4b40751b5cd.tar.gz emacs-8a7bc7b8036666697b8598760a41e4b40751b5cd.zip | |
(perldb): Change gud-print from just "%e" to "p %e" to
actually print the value in the GUD buffer.
| -rw-r--r-- | lisp/progmodes/gud.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index b4fdc682e6f..a0e22859457 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el | |||
| @@ -1261,7 +1261,7 @@ and source-file directory for your debugger." | |||
| 1261 | ; (gud-def gud-finish "finish" "\C-f" "Finish executing current function.") | 1261 | ; (gud-def gud-finish "finish" "\C-f" "Finish executing current function.") |
| 1262 | ; (gud-def gud-up "up %p" "<" "Up N stack frames (numeric arg).") | 1262 | ; (gud-def gud-up "up %p" "<" "Up N stack frames (numeric arg).") |
| 1263 | ; (gud-def gud-down "down %p" ">" "Down N stack frames (numeric arg).") | 1263 | ; (gud-def gud-down "down %p" ">" "Down N stack frames (numeric arg).") |
| 1264 | (gud-def gud-print "%e" "\C-p" "Evaluate perl expression at point.") | 1264 | (gud-def gud-print "p %e" "\C-p" "Evaluate perl expression at point.") |
| 1265 | 1265 | ||
| 1266 | (setq comint-prompt-regexp "^ DB<+[0-9]+>+ ") | 1266 | (setq comint-prompt-regexp "^ DB<+[0-9]+>+ ") |
| 1267 | (setq paragraph-start comint-prompt-regexp) | 1267 | (setq paragraph-start comint-prompt-regexp) |