comparison src/.gdbinit @ 70247:039ae41bde1a

(pp1, pv1): Only print value as expression is now printed out by gud-print. (pv1): Correct doc string.
author Nick Roberts <nickrob@snap.net.nz>
date Wed, 26 Apr 2006 23:02:33 +0000
parents 7a7755ff46ed
children d481556dd1b5 966a40e7fb54 2ecafc6d5db7
comparison
equal deleted inserted replaced
70246:1d0a74e54e50 70247:039ae41bde1a
86 end 86 end
87 87
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
103 be recorded in the GUD buffer. 101 be recorded in the GUD buffer.
104 end 102 end
117 end 115 end
118 116
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)))
127 set print_output_debug_flag = $output_debug 123 set print_output_debug_flag = $output_debug
128 end 124 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
138 define ppt 133 define ppt
139 set $b = current_buffer 134 set $b = current_buffer