Mercurial > emacs
comparison src/buffer.c @ 9632:833a19698ef3
(list_buffers_1): Always mark current_buffer read-only.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 20 Oct 1994 21:19:47 +0000 |
parents | 4bb620c9a075 |
children | 577db538b0b6 |
comparison
equal
deleted
inserted
replaced
9631:a5bd0b6b080e | 9632:833a19698ef3 |
---|---|
1153 if (b == old) | 1153 if (b == old) |
1154 XSETFASTINT (desired_point, point); | 1154 XSETFASTINT (desired_point, point); |
1155 write_string (b == old ? "." : " ", -1); | 1155 write_string (b == old ? "." : " ", -1); |
1156 /* Identify modified buffers */ | 1156 /* Identify modified buffers */ |
1157 write_string (BUF_MODIFF (b) > b->save_modified ? "*" : " ", -1); | 1157 write_string (BUF_MODIFF (b) > b->save_modified ? "*" : " ", -1); |
1158 write_string (NILP (b->read_only) ? " " : "% ", -1); | 1158 /* The current buffer is special-cased to be marked read-only. |
1159 It is actually made read-only by the call to | |
1160 Buffer-menu-mode, below. */ | |
1161 write_string ((b != current_buffer && NILP (b->read_only)) | |
1162 ? " " : "% ", -1); | |
1159 Fprinc (b->name, Qnil); | 1163 Fprinc (b->name, Qnil); |
1160 Findent_to (col1, make_number (2)); | 1164 Findent_to (col1, make_number (2)); |
1161 XSETFASTINT (tem, BUF_Z (b) - BUF_BEG (b)); | 1165 XSETFASTINT (tem, BUF_Z (b) - BUF_BEG (b)); |
1162 Fprin1 (tem, Qnil); | 1166 Fprin1 (tem, Qnil); |
1163 Findent_to (col2, minspace); | 1167 Findent_to (col2, minspace); |