diff options
| -rw-r--r-- | src/.gdbinit | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/src/.gdbinit b/src/.gdbinit index 12a9d014026..5b2b358a22f 100644 --- a/src/.gdbinit +++ b/src/.gdbinit | |||
| @@ -88,15 +88,13 @@ end | |||
| 88 | # Print out s-expressions from tool bar | 88 | # Print out s-expressions from tool bar |
| 89 | define pp1 | 89 | define pp1 |
| 90 | set $tmp = $arg0 | 90 | set $tmp = $arg0 |
| 91 | echo $arg0 | ||
| 92 | printf " = " | ||
| 93 | set $output_debug = print_output_debug_flag | 91 | set $output_debug = print_output_debug_flag |
| 94 | set print_output_debug_flag = 0 | 92 | set print_output_debug_flag = 0 |
| 95 | set safe_debug_print ($tmp) | 93 | set safe_debug_print ($tmp) |
| 96 | set print_output_debug_flag = $output_debug | 94 | set print_output_debug_flag = $output_debug |
| 97 | end | 95 | end |
| 98 | document pp1 | 96 | document pp1 |
| 99 | Print the argument as an emacs s-expression | 97 | Print the argument as an emacs s-expression. |
| 100 | Works only when an inferior emacs is executing. | 98 | Works only when an inferior emacs is executing. |
| 101 | For use on tool bar when debugging in Emacs | 99 | For use on tool bar when debugging in Emacs |
| 102 | where the variable name would not otherwise | 100 | where the variable name would not otherwise |
| @@ -119,8 +117,6 @@ end | |||
| 119 | # Print value of lisp variable | 117 | # Print value of lisp variable |
| 120 | define pv1 | 118 | define pv1 |
| 121 | set $tmp = "$arg0" | 119 | set $tmp = "$arg0" |
| 122 | echo $arg0 | ||
| 123 | printf " = " | ||
| 124 | set $output_debug = print_output_debug_flag | 120 | set $output_debug = print_output_debug_flag |
| 125 | set print_output_debug_flag = 0 | 121 | set print_output_debug_flag = 0 |
| 126 | set safe_debug_print (find_symbol_value (intern ($tmp))) | 122 | set safe_debug_print (find_symbol_value (intern ($tmp))) |
| @@ -129,9 +125,8 @@ end | |||
| 129 | document pv1 | 125 | document pv1 |
| 130 | Print the value of the lisp variable given as argument. | 126 | Print the value of the lisp variable given as argument. |
| 131 | Works only when an inferior emacs is executing. | 127 | Works only when an inferior emacs is executing. |
| 132 | For use on tool bar when debugging in Emacs | 128 | For use when debugging in Emacs where the variable |
| 133 | where the variable name would not otherwise | 129 | name would not otherwise be recorded in the GUD buffer. |
| 134 | be recorded in the GUD buffer. | ||
| 135 | end | 130 | end |
| 136 | 131 | ||
| 137 | # Print out current buffer point and boundaries | 132 | # Print out current buffer point and boundaries |