From: Kim F. Storm <storm@cua.dk>
Date: Wed, 9 Nov 2005 23:13:56 +0000 (+0000)
Subject: (pp, pp1): Use safe_debug_print.
X-Git-Tag: emacs-pretest-22.0.90~5986
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1609a9633f98795e6f5feb69a6a9b37dfac5d2b0;p=emacs.git

(pp, pp1): Use safe_debug_print.
(pv, pv1): New commands to print value of a lisp variable.
---

diff --git a/src/.gdbinit b/src/.gdbinit
index 94169be7895..cb1deddb1ea 100644
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -66,7 +66,7 @@ end
 # Print out s-expressions
 define pp
   set $tmp = $arg0
-  set debug_print ($tmp)
+  set safe_debug_print ($tmp)
 end
 document pp
 Print the argument as an emacs s-expression
@@ -78,7 +78,7 @@ define pp1
   set $tmp = $arg0
   echo $arg0
   printf " = "
-  set debug_print ($tmp)
+  set safe_debug_print ($tmp)
 end
 document pp1
 Print the argument as an emacs s-expression
@@ -88,6 +88,31 @@ where the variable name would not otherwise
 be recorded in the GUD buffer.
 end
 
+# Print value of lisp variable
+define pv
+  set $tmp = "$arg0"
+  set safe_debug_print ( find_symbol_value (intern ($tmp)))
+end
+document pv
+Print the value of the lisp variable given as argument.
+Works only when an inferior emacs is executing.
+end
+
+# Print value of lisp variable
+define pv1
+  set $tmp = "$arg0"
+  echo $arg0
+  printf " = "
+  set safe_debug_print (find_symbol_value (intern ($tmp)))
+end
+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.
+end
+
 # Print out current buffer point and boundaries
 define ppt
   set $b = current_buffer