# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 968276534 0
# Node ID 9b8c5bea5e8d2046b3b508ddb50daf819b55dd77
# Parent  e41c4238ed43ed44428dc3e936a7511f64e614bc
(set_buffer_internal_1) [REL_ALLOC_MMAP]: If
buffer's text buffer is null, map new memory.

diff -r e41c4238ed43 -r 9b8c5bea5e8d src/buffer.c
--- a/src/buffer.c	Wed Sep 06 21:25:49 2000 +0000
+++ b/src/buffer.c	Wed Sep 06 21:42:14 2000 +0000
@@ -1548,6 +1548,17 @@
   register Lisp_Object tail, valcontents;
   Lisp_Object tem;
 
+#ifdef REL_ALLOC_MMAP
+  if (b->text->beg == NULL)
+    {
+      BLOCK_INPUT;
+      BUFFER_REALLOC (BUF_BEG_ADDR (b),
+		      (BUF_Z_BYTE (b) - BUF_BEG_BYTE (b)
+		       + BUF_GAP_SIZE (b) + 1));
+      UNBLOCK_INPUT;
+    }
+#endif /* REL_ALLOC_MMAP */
+  
   if (current_buffer == b)
     return;