diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-06-26 17:04:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-06-26 17:04:47 +0000 |
| commit | 584a02220c78f1613062a12e97f124e8f81a43c2 (patch) | |
| tree | 75e6130b65ae4e43334a74163c0a8d61ccead31a /src/window.c | |
| parent | a3344d5cc26ac3fefd201fe0e982d962261eb8e1 (diff) | |
| download | emacs-584a02220c78f1613062a12e97f124e8f81a43c2.tar.gz | |
(Fsplit_window): Nicer error if split size is too small.
Diffstat (limited to 'src/window.c')
| -rw-r--r-- | src/window.c | 16 |
1 files changed, 10 insertions, 6 deletions
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)) { |