From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 26 Jun 1995 17:04:47 +0000 (+0000)
Subject: (Fsplit_window): Nicer error if split size is too small.
X-Git-Tag: emacs-19.34~3472
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3d22c388c0fcc72275de570c7390c96a2cdf1690;p=emacs.git

(Fsplit_window): Nicer error if split size is too small.
---

diff --git a/src/window.c b/src/window.c
index 09781e2497e..56fa5882528 100644
--- a/src/window.c
+++ b/src/window.c
@@ -2231,9 +2231,11 @@ and put SIZE columns in the first of the pair.")
 
   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 @@ and put SIZE columns in the first of the pair.")
     }
   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))
 	{