70 |
Works only when an inferior emacs is executing. |
Works only when an inferior emacs is executing. |
71 |
end |
end |
72 |
|
|
73 |
|
# Print out current buffer point and boundaries |
74 |
|
define ppt |
75 |
|
set $b = current_buffer |
76 |
|
set $t = $b->text |
77 |
|
printf "BUF PT: %d", $b->pt |
78 |
|
if ($b->pt != $b->pt_byte) |
79 |
|
printf "[%d]", $b->pt_byte |
80 |
|
end |
81 |
|
printf " of 1..%d", $t->z |
82 |
|
if ($t->z != $t->z_byte) |
83 |
|
printf "[%d]", $t->z_byte |
84 |
|
end |
85 |
|
if ($b->begv != 1 || $b->zv != $t->z) |
86 |
|
printf " NARROW=%d..%d", $b->begv, $b->zv |
87 |
|
if ($b->begv != $b->begv_byte || $b->zv != $b->zv_byte) |
88 |
|
printf " [%d..%d]", $b->begv_byte, $b->zv_byte |
89 |
|
end |
90 |
|
end |
91 |
|
printf " GAP: %d", $t->gpt |
92 |
|
if ($t->gpt != $t->gpt_byte) |
93 |
|
printf "[%d]", $t->gpt_byte |
94 |
|
end |
95 |
|
printf " SZ=%d\n", $t->gap_size |
96 |
|
end |
97 |
|
document ppt |
98 |
|
Print point, beg, end, narrow, and gap for current buffer. |
99 |
|
end |
100 |
|
|
101 |
define xtype |
define xtype |
102 |
xgettype $ |
xgettype $ |
103 |
output $type |
output $type |