# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1063823618 0
# Node ID 84470539e96f02fb83067ab03dc25269c1845815
# Parent  8a1964b2faf10976540a4b0b742917f3a957bcc0
(perldb): Change gud-print from just "%e" to "p %e" to
 actually print the value in the GUD buffer.

diff -r 8a1964b2faf1 -r 84470539e96f lisp/progmodes/gud.el
--- a/lisp/progmodes/gud.el	Wed Sep 17 18:31:36 2003 +0000
+++ b/lisp/progmodes/gud.el	Wed Sep 17 18:33:38 2003 +0000
@@ -1261,7 +1261,7 @@
 ;  (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  "%e"           "\C-p" "Evaluate perl expression at point.")
+  (gud-def gud-print  "p %e"          "\C-p" "Evaluate perl expression at point.")
 
   (setq comint-prompt-regexp "^  DB<+[0-9]+>+ ")
   (setq paragraph-start comint-prompt-regexp)