comparison src/.gdbinit @ 90203:187d6a1f84f7

Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-71 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 485-492) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 92-94) - Merge from emacs--cvs-trunk--0 - Update from CVS
author Miles Bader <miles@gnu.org>
date Fri, 22 Jul 2005 08:27:27 +0000
parents f9a65d7ebd29 18dde5f76662
children 7beb78bc1f8e
comparison
equal deleted inserted replaced
90202:7597b4a23c3b 90203:187d6a1f84f7
127 if ($it->sp != 0) 127 if ($it->sp != 0)
128 printf " sp=%d", $it->sp 128 printf " sp=%d", $it->sp
129 end 129 end
130 if ($it->what == IT_CHARACTER) 130 if ($it->what == IT_CHARACTER)
131 if ($it->len == 1 && $it->c >= ' ' && it->c < 255) 131 if ($it->len == 1 && $it->c >= ' ' && it->c < 255)
132 printf "ch='%c'", $it->c 132 printf " ch='%c'", $it->c
133 else 133 else
134 printf "ch=[%d,%d]", $it->c, $it->len 134 printf " ch=[%d,%d]", $it->c, $it->len
135 end 135 end
136 else 136 else
137 if ($it->what == IT_IMAGE) 137 if ($it->what == IT_IMAGE)
138 printf "IMAGE=%d", $it->image_id 138 printf " IMAGE=%d", $it->image_id
139 else 139 else
140 printf " "
140 output $it->what 141 output $it->what
141 end 142 end
142 end 143 end
143 if ($it->method != GET_FROM_BUFFER) 144 if ($it->method != GET_FROM_BUFFER)
144 printf " next=" 145 printf " next="
145 output $it->method 146 output $it->method
147 if ($it->method == GET_FROM_STRING)
148 printf "[%d]", $it->current.string_pos.charpos
149 end
146 end 150 end
147 printf "\n" 151 printf "\n"
148 if ($it->region_beg_charpos >= 0) 152 if ($it->region_beg_charpos >= 0)
149 printf "reg=%d-%d ", $it->region_beg_charpos, $it->region_end_charpos 153 printf "reg=%d-%d ", $it->region_beg_charpos, $it->region_end_charpos
150 end 154 end