(Fgarbage_collect): If nextb->text->inhibit_shrinking is

nonzero, don't shrink the buffer nextb.

diff --git a/src/alloc.c b/src/alloc.c
index c8a5a38e59258ae9e21ba1ae958e3d88fc579117..f847b4052b7d9a3e69acf4aa6816d5372bef1372 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -5043,7 +5043,8 @@ returns nil, because real GC can't be done.  */)
          truncate_undo_list (nextb);
 
        /* Shrink buffer gaps, but skip indirect and dead buffers.  */
-       if (nextb->base_buffer == 0 && !NILP (nextb->name))
+       if (nextb->base_buffer == 0 && !NILP (nextb->name)
+           && ! nextb->text->inhibit_shrinking)
          {
            /* If a buffer's gap size is more than 10% of the buffer
               size, or larger than 2000 bytes, then shrink it