# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 804186287 0
# Node ID caca393b084c5aee8c918b9f07443b23005d034e
# Parent  ceccff3df34925560c982c2e124a26562e10d0a2
(Fsplit_window): Nicer error if split size is too small.

diff -r ceccff3df349 -r caca393b084c src/window.c
--- a/src/window.c	Mon Jun 26 12:35:50 1995 +0000
+++ b/src/window.c	Mon Jun 26 17:04:47 1995 +0000
@@ -2231,9 +2231,11 @@
 
   if (NILP (horflag))
     {
-      if (size < window_min_height
-	  || size + window_min_height > XFASTINT (o->height))
-	args_out_of_range_3 (window, chsize, horflag);
+      if (size < window_min_height)
+	error ("Window height %d too small (after splitting)", size);
+      if (size + window_min_height > XFASTINT (o->height))
+	error ("Window height %d too small (after splitting)", 
+	       XFASTINT (o->height) - size);
       if (NILP (o->parent)
 	  || NILP (XWINDOW (o->parent)->vchild))
 	{
@@ -2244,9 +2246,11 @@
     }
   else
     {
-      if (size < window_min_width
-	  || size + window_min_width > XFASTINT (o->width))
-	args_out_of_range_3 (window, chsize, horflag);
+      if (size < window_min_width)
+	error ("Window width %d too small (after splitting)", size);
+      if (size + window_min_width > XFASTINT (o->width))
+	error ("Window width %d too small (after splitting)", 
+	       XFASTINT (o->width) - size);
       if (NILP (o->parent)
 	  || NILP (XWINDOW (o->parent)->hchild))
 	{