# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1146092553 0
# Node ID 039ae41bde1ad6f0c3737e6d09cecac1d45f3a2a
# Parent  1d0a74e54e50d5a0be251d67434134c3ff413fd7
(pp1, pv1): Only print value as expression is now printed out by gud-print.
(pv1): Correct doc string.

diff -r 1d0a74e54e50 -r 039ae41bde1a src/.gdbinit
--- a/src/.gdbinit	Wed Apr 26 23:01:51 2006 +0000
+++ b/src/.gdbinit	Wed Apr 26 23:02:33 2006 +0000
@@ -88,15 +88,13 @@
 # Print out s-expressions from tool bar
 define pp1
   set $tmp = $arg0
-  echo $arg0
-  printf " = "
   set $output_debug = print_output_debug_flag
   set print_output_debug_flag = 0
   set safe_debug_print ($tmp)
   set print_output_debug_flag = $output_debug
 end
 document pp1
-Print the argument as an emacs s-expression
+Print the argument as an emacs s-expression.
 Works only when an inferior emacs is executing.
 For use on tool bar when debugging in Emacs
 where the variable name would not otherwise
@@ -119,8 +117,6 @@
 # Print value of lisp variable
 define pv1
   set $tmp = "$arg0"
-  echo $arg0
-  printf " = "
   set $output_debug = print_output_debug_flag
   set print_output_debug_flag = 0
   set safe_debug_print (find_symbol_value (intern ($tmp)))
@@ -129,9 +125,8 @@
 document pv1
 Print the value of the lisp variable given as argument.
 Works only when an inferior emacs is executing.
-For use on tool bar when debugging in Emacs
-where the variable name would not otherwise
-be recorded in the GUD buffer.
+For use when debugging in Emacs where the variable
+name would not otherwise be recorded in the GUD buffer.
 end
 
 # Print out current buffer point and boundaries