summaryrefslogtreecommitdiff
path: root/src/window.c
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1996-08-23 06:20:58 +0000
committerRichard M. Stallman <rms@gnu.org>1996-08-23 06:20:58 +0000
commitabb7151084d429a6da39581b5527385e8f5768ab (patch)
tree47568c3bd3679f0fd3164c2586b3b78621a17ca3 /src/window.c
parent1d2a93836db53adc84ee384316e463b75f8a05e4 (diff)
downloademacs-abb7151084d429a6da39581b5527385e8f5768ab.tar.gz
(Fsplit_window): Treat width just like height;
no special handling for scroll bars.
Diffstat (limited to 'src/window.c')
-rw-r--r--src/window.c16
1 files changed, 6 insertions, 10 deletions
diff --git a/src/window.c b/src/window.c
index 1605203e70d..41fc8f73075 100644
--- a/src/window.c
+++ b/src/window.c
@@ -2324,8 +2324,6 @@ and put SIZE columns in the first of the pair.")
register struct window *o, *p;
FRAME_PTR fo;
register int size_int;
- int internal_width;
- int separator_width = 1;
if (NILP (window))
window = selected_window;
@@ -2334,16 +2332,14 @@ and put SIZE columns in the first of the pair.")
o = XWINDOW (window);
fo = XFRAME (WINDOW_FRAME (o));
- if (FRAME_HAS_VERTICAL_SCROLL_BARS (fo))
- separator_width = FRAME_SCROLL_BAR_COLS (fo);
- internal_width = window_internal_width (o);
+ width = XFASTINT (o->width);
if (NILP (size))
{
if (!NILP (horflag))
/* Calculate the size of the left-hand window, by dividing
the usable space in columns by two. */
- size_int = (internal_width - separator_width) >> 1;
+ size_int = XFASTINT (o->width) >> 1;
else
size_int = XFASTINT (o->height) >> 1;
}
@@ -2379,9 +2375,10 @@ and put SIZE columns in the first of the pair.")
{
if (size_int < window_min_width)
error ("Window width %d too small (after splitting)", size_int);
- if (internal_width - size_int - separator_width < window_min_width)
+
+ if (size_int + window_min_width > XFASTINT (o->width))
error ("Window width %d too small (after splitting)",
- internal_width - size_int - separator_width);
+ XFASTINT (o->width) - size_int);
if (NILP (o->parent)
|| NILP (XWINDOW (o->parent)->hchild))
{
@@ -2417,8 +2414,7 @@ and put SIZE columns in the first of the pair.")
{
p->height = o->height;
p->top = o->top;
- size_int += separator_width;
- XSETFASTINT (p->width, internal_width - size_int);
+ XSETFASTINT (p->width, XFASTINT (o->width) - size_int);
XSETFASTINT (o->width, size_int);
XSETFASTINT (p->left, XFASTINT (o->left) + size_int);
}