From: Kenichi Handa <handa@m17n.org>
Date: Fri, 23 Feb 2007 06:03:41 +0000 (+0000)
Subject: (Fgarbage_collect): If nextb->text->inhibit_shrinking is
X-Git-Tag: emacs-pretest-23.0.90~8295^2~579
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dc7b4525e5d0251a6da13b28354b245906adf42b;p=emacs.git

(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 c8a5a38e592..f847b4052b7 100644
--- 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