# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 934579475 0
# Node ID 29c5c79b1483a592c22cb5e1da49163e14d45c1a
# Parent  518d62d71d2137c7a7041fcbfba46565acd05285
(set_window_height, set_window_width):
If window starts out "too small", set its too_small_ok flag.
If window's too_small_ok flag is set, don't delete it
unless it is so small it would cause a crash.

diff -r 518d62d71d21 -r 29c5c79b1483 src/window.c
--- a/src/window.c	Fri Aug 13 20:51:51 1999 +0000
+++ b/src/window.c	Fri Aug 13 21:24:35 1999 +0000
@@ -1929,9 +1929,21 @@
 
   check_min_window_sizes ();
 
+  /* If the window has been "too small" at one point,
+     don't delete it for being "too small" in the future.
+     Preserve it as long as that is at all possible.  */
+  if (oheight < window_min_height)
+    w->too_small_ok = Qt;
+
   if (!nodelete && !NILP (w->parent))
     {
-      int min_height = window_min_size (w, 0);
+      int min_height;
+
+      if (!MINI_WINDOW_P (w) && !NILP (w->too_small_ok))
+	min_height = MIN_SAFE_WINDOW_HEIGHT;
+      else
+	min_height = window_min_size (w, 0);
+      
       if (height < min_height)
 	{
 	  delete_window (window);
@@ -1998,7 +2010,16 @@
   int left, pos, lastright, opos, lastoright;
   Lisp_Object child;
 
-  if (!nodelete && width < window_min_width && !NILP (w->parent))
+  /* If the window has been "too small" at one point,
+     don't delete it for being "too small" in the future.
+     Preserve it as long as that is at all possible.  */
+  if (owidth < window_min_width)
+    w->too_small_ok = Qt;
+
+  if (!nodelete && !NILP (w->parent)
+      && (! NILP (w->too_small_ok)
+	  ? width < MIN_SAFE_WINDOW_WIDTH
+	  : width < window_min_width))
     {
       delete_window (window);
       return;