diff options
| author | Kenichi Handa | 2007-02-23 06:03:41 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2007-02-23 06:03:41 +0000 |
| commit | dc7b4525e5d0251a6da13b28354b245906adf42b (patch) | |
| tree | 9c20172d5922efa61e35e15175712639771cfa5d /src/alloc.c | |
| parent | e9728cc0296df2e01a252b48c940dd596207390a (diff) | |
| download | emacs-dc7b4525e5d0251a6da13b28354b245906adf42b.tar.gz emacs-dc7b4525e5d0251a6da13b28354b245906adf42b.zip | |
(Fgarbage_collect): If nextb->text->inhibit_shrinking is
nonzero, don't shrink the buffer nextb.
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/alloc.c b/src/alloc.c index c8a5a38e592..f847b4052b7 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -5043,7 +5043,8 @@ returns nil, because real GC can't be done. */) | |||
| 5043 | truncate_undo_list (nextb); | 5043 | truncate_undo_list (nextb); |
| 5044 | 5044 | ||
| 5045 | /* Shrink buffer gaps, but skip indirect and dead buffers. */ | 5045 | /* Shrink buffer gaps, but skip indirect and dead buffers. */ |
| 5046 | if (nextb->base_buffer == 0 && !NILP (nextb->name)) | 5046 | if (nextb->base_buffer == 0 && !NILP (nextb->name) |
| 5047 | && ! nextb->text->inhibit_shrinking) | ||
| 5047 | { | 5048 | { |
| 5048 | /* If a buffer's gap size is more than 10% of the buffer | 5049 | /* If a buffer's gap size is more than 10% of the buffer |
| 5049 | size, or larger than 2000 bytes, then shrink it | 5050 | size, or larger than 2000 bytes, then shrink it |