diff options
author | Kim F. Storm <storm@cua.dk> | 2005-11-09 23:13:56 +0000 |
---|---|---|
committer | Kim F. Storm <storm@cua.dk> | 2005-11-09 23:13:56 +0000 |
commit | 4b71291ea5c9905c1a7a914289058e85d4d0839d (patch) | |
tree | 1c68454d334e05b75fef4338a326e0b2772b0022 /src/.gdbinit | |
parent | e6cbd2f4f7656c38c2600f131e147421c9ec4685 (diff) | |
download | emacs-4b71291ea5c9905c1a7a914289058e85d4d0839d.tar.gz |
(pp, pp1): Use safe_debug_print.
(pv, pv1): New commands to print value of a lisp variable.
Diffstat (limited to 'src/.gdbinit')
-rw-r--r-- | src/.gdbinit | 29 |
1 files changed, 27 insertions, 2 deletions
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 |