Mercurial > emacs
changeset 66776:2acb0afcc57a
(pp, pp1): Use safe_debug_print.
(pv, pv1): New commands to print value of a lisp variable.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Wed, 09 Nov 2005 23:13:56 +0000 |
| parents | 91dca36c0245 |
| children | 25bf8ea82843 |
| files | src/.gdbinit |
| diffstat | 1 files changed, 27 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/.gdbinit Wed Nov 09 23:04:46 2005 +0000 +++ b/src/.gdbinit Wed Nov 09 23:13:56 2005 +0000 @@ -66,7 +66,7 @@ # 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 @@ 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 @@ 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