Mercurial > emacs
changeset 41831:fa7af2e13043
(Fgarbage_collect): Shrink buffer gaps that are
excessively large.
| author | Andrew Innes <andrewi@gnu.org> |
|---|---|
| date | Wed, 05 Dec 2001 21:37:48 +0000 |
| parents | 71cbc17f7f8b |
| children | 2c184948391c |
| files | src/alloc.c |
| diffstat | 1 files changed, 19 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/alloc.c Wed Dec 05 21:37:11 2001 +0000 +++ b/src/alloc.c Wed Dec 05 21:37:48 2001 +0000 @@ -1020,7 +1020,7 @@ /* Lisp_Strings are allocated in string_block structures. When a new string_block is allocated, all the Lisp_Strings it contains are - added to a free-list stiing_free_list. When a new Lisp_String is + added to a free-list string_free_list. When a new Lisp_String is needed, it is taken from that list. During the sweep phase of GC, string_blocks that are entirely free are freed, except two which we keep. @@ -4096,6 +4096,24 @@ nextb->undo_list = truncate_undo_list (nextb->undo_list, undo_limit, undo_strong_limit); + + /* Shrink buffer gaps, but skip indirect and dead buffers. */ + if (nextb->base_buffer == 0 && !NILP (nextb->name)) + { + /* If a buffer's gap size is more than 10% of the buffer + size, or larger than 2000 bytes, then shrink it + accordingly. Keep a minimum size of 20 bytes. */ + int size = min (2000, max (20, (nextb->text->z_byte / 10))); + + if (nextb->text->gap_size > size) + { + struct buffer *save_current = current_buffer; + current_buffer = nextb; + make_gap (-(nextb->text->gap_size - size)); + current_buffer = save_current; + } + } + nextb = nextb->next; } }