116 |
|
|
117 |
if $buf->filename != Qnil |
if $buf->filename != Qnil |
118 |
ygetptr $buf->filename |
ygetptr $buf->filename |
119 |
set $filename = ((struct Lisp_String *) $ptr)->data |
printf "%2d %c %9d %-20s %-10s %s\n", \ |
120 |
|
$i, $modp, ($buf->text->z_byte - 1), $name, $mode, \ |
121 |
|
((struct Lisp_String *) $ptr)->data |
122 |
else |
else |
123 |
set $filename = ' ' |
printf "%2d %c %9d %-20s %-10s\n", \ |
124 |
|
$i, $modp, ($buf->text->z_byte - 1), $name, $mode |
125 |
end |
end |
|
|
|
|
printf "%2d %c %9d %-20s %-10s %s\n", \ |
|
|
$i, $modp, ($buf->text->z_byte - 1), $name, $mode, $filename |
|
126 |
end |
end |
127 |
|
|
128 |
set $i++ |
set $i++ |