From 8a3862864af3c6fbd619920686c60b920c6e050f Mon Sep 17 00:00:00 2001
From: Nick Roberts <nickrob@snap.net.nz>
Date: Wed, 9 Nov 2005 20:38:12 +0000
Subject: [PATCH] (pp1): New user-defined function.

---
 src/.gdbinit | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/src/.gdbinit b/src/.gdbinit
index ea1ac2ef666..94169be7895 100644
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -73,6 +73,21 @@ Print the argument as an emacs s-expression
 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
-- 
2.39.2