# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1131568692 0
# Node ID f14bee895419b976f390927b575252c3f08cfcbb
# Parent  19d0e596897127cea4632e393ccfb30d466588be
(pp1): New user-defined function.

diff -r 19d0e5968971 -r f14bee895419 src/.gdbinit
--- a/src/.gdbinit	Wed Nov 09 20:33:46 2005 +0000
+++ b/src/.gdbinit	Wed Nov 09 20:38:12 2005 +0000
@@ -73,6 +73,21 @@
 Works only when an inferior emacs is executing.
 end
 
+# Print out s-expressions from tool bar
+define pp1
+  set $tmp = $arg0
+  echo $arg0
+  printf " = "
+  set debug_print ($tmp)
+end
+document pp1
+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
+be recorded in the GUD buffer.
+end
+
 # Print out current buffer point and boundaries
 define ppt
   set $b = current_buffer