# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 766826840 0
# Node ID 5137d3777e4ae07072b7adbb1506b1fd111a0294
# Parent  9d977a1a7147d6b7b6160d86299a27b8f195632a
(set_window_width): Don't delete root window for being too narrow.

diff -r 9d977a1a7147 -r 5137d3777e4a src/window.c
--- a/src/window.c	Wed Apr 20 06:19:14 1994 +0000
+++ b/src/window.c	Wed Apr 20 07:27:20 1994 +0000
@@ -1534,7 +1534,7 @@
   int left, pos, lastright, opos, lastoright;
   Lisp_Object child;
 
-  if (!nodelete && width < window_min_width)
+  if (!nodelete && width < window_min_width && !NILP (w->parent))
     {
       Fdelete_window (window);
       return;