aboutsummaryrefslogtreecommitdiffstats
path: root/src/window.c
diff options
context:
space:
mode:
authorKarl Heuer1995-12-21 17:14:53 +0000
committerKarl Heuer1995-12-21 17:14:53 +0000
commit77ae0fe32418de7cd79e6b6f12f7cb09abfc3079 (patch)
treecb5edc80795a1e1540647fcc6ba4433aa599cfad /src/window.c
parenta03f91ada2cec963ec3e73e81dbc8fbd4e8e0cc9 (diff)
downloademacs-77ae0fe32418de7cd79e6b6f12f7cb09abfc3079.tar.gz
emacs-77ae0fe32418de7cd79e6b6f12f7cb09abfc3079.zip
(Fsplit_window): Rename size to size_int and chsize to size.
Diffstat (limited to 'src/window.c')
-rw-r--r--src/window.c48
1 files changed, 24 insertions, 24 deletions
diff --git a/src/window.c b/src/window.c
index 915297b46f5..be1722ae3e4 100644
--- a/src/window.c
+++ b/src/window.c
@@ -2246,15 +2246,15 @@ make_dummy_parent (window)
2246DEFUN ("split-window", Fsplit_window, Ssplit_window, 0, 3, "", 2246DEFUN ("split-window", Fsplit_window, Ssplit_window, 0, 3, "",
2247 "Split WINDOW, putting SIZE lines in the first of the pair.\n\ 2247 "Split WINDOW, putting SIZE lines in the first of the pair.\n\
2248WINDOW defaults to selected one and SIZE to half its size.\n\ 2248WINDOW defaults to selected one and SIZE to half its size.\n\
2249If optional third arg HOR-FLAG is non-nil, split side by side\n\ 2249If optional third arg HORFLAG is non-nil, split side by side\n\
2250and put SIZE columns in the first of the pair.") 2250and put SIZE columns in the first of the pair.")
2251 (window, chsize, horflag) 2251 (window, size, horflag)
2252 Lisp_Object window, chsize, horflag; 2252 Lisp_Object window, size, horflag;
2253{ 2253{
2254 register Lisp_Object new; 2254 register Lisp_Object new;
2255 register struct window *o, *p; 2255 register struct window *o, *p;
2256 FRAME_PTR fo; 2256 FRAME_PTR fo;
2257 register int size; 2257 register int size_int;
2258 int internal_width; 2258 int internal_width;
2259 int separator_width = 1; 2259 int separator_width = 1;
2260 2260
@@ -2269,19 +2269,19 @@ and put SIZE columns in the first of the pair.")
2269 separator_width = FRAME_SCROLL_BAR_COLS (fo); 2269 separator_width = FRAME_SCROLL_BAR_COLS (fo);
2270 internal_width = window_internal_width (o); 2270 internal_width = window_internal_width (o);
2271 2271
2272 if (NILP (chsize)) 2272 if (NILP (size))
2273 { 2273 {
2274 if (!NILP (horflag)) 2274 if (!NILP (horflag))
2275 /* Calculate the size of the left-hand window, by dividing 2275 /* Calculate the size of the left-hand window, by dividing
2276 the usable space in columns by two. */ 2276 the usable space in columns by two. */
2277 size = (internal_width - separator_width) >> 1; 2277 size_int = (internal_width - separator_width) >> 1;
2278 else 2278 else
2279 size = XFASTINT (o->height) >> 1; 2279 size_int = XFASTINT (o->height) >> 1;
2280 } 2280 }
2281 else 2281 else
2282 { 2282 {
2283 CHECK_NUMBER (chsize, 1); 2283 CHECK_NUMBER (size, 1);
2284 size = XINT (chsize); 2284 size_int = XINT (size);
2285 } 2285 }
2286 2286
2287 if (MINI_WINDOW_P (o)) 2287 if (MINI_WINDOW_P (o))
@@ -2293,11 +2293,11 @@ and put SIZE columns in the first of the pair.")
2293 2293
2294 if (NILP (horflag)) 2294 if (NILP (horflag))
2295 { 2295 {
2296 if (size < window_min_height) 2296 if (size_int < window_min_height)
2297 error ("Window height %d too small (after splitting)", size); 2297 error ("Window height %d too small (after splitting)", size_int);
2298 if (size + window_min_height > XFASTINT (o->height)) 2298 if (size_int + window_min_height > XFASTINT (o->height))
2299 error ("Window height %d too small (after splitting)", 2299 error ("Window height %d too small (after splitting)",
2300 XFASTINT (o->height) - size); 2300 XFASTINT (o->height) - size_int);
2301 if (NILP (o->parent) 2301 if (NILP (o->parent)
2302 || NILP (XWINDOW (o->parent)->vchild)) 2302 || NILP (XWINDOW (o->parent)->vchild))
2303 { 2303 {
@@ -2308,11 +2308,11 @@ and put SIZE columns in the first of the pair.")
2308 } 2308 }
2309 else 2309 else
2310 { 2310 {
2311 if (size < window_min_width) 2311 if (size_int < window_min_width)
2312 error ("Window width %d too small (after splitting)", size); 2312 error ("Window width %d too small (after splitting)", size_int);
2313 if (internal_width - size - separator_width < window_min_width) 2313 if (internal_width - size_int - separator_width < window_min_width)
2314 error ("Window width %d too small (after splitting)", 2314 error ("Window width %d too small (after splitting)",
2315 internal_width - size - separator_width); 2315 internal_width - size_int - separator_width);
2316 if (NILP (o->parent) 2316 if (NILP (o->parent)
2317 || NILP (XWINDOW (o->parent)->hchild)) 2317 || NILP (XWINDOW (o->parent)->hchild))
2318 { 2318 {
@@ -2348,18 +2348,18 @@ and put SIZE columns in the first of the pair.")
2348 { 2348 {
2349 p->height = o->height; 2349 p->height = o->height;
2350 p->top = o->top; 2350 p->top = o->top;
2351 size += separator_width; 2351 size_int += separator_width;
2352 XSETFASTINT (p->width, internal_width - size); 2352 XSETFASTINT (p->width, internal_width - size_int);
2353 XSETFASTINT (o->width, size); 2353 XSETFASTINT (o->width, size_int);
2354 XSETFASTINT (p->left, XFASTINT (o->left) + size); 2354 XSETFASTINT (p->left, XFASTINT (o->left) + size_int);
2355 } 2355 }
2356 else 2356 else
2357 { 2357 {
2358 p->left = o->left; 2358 p->left = o->left;
2359 p->width = o->width; 2359 p->width = o->width;
2360 XSETFASTINT (p->height, XFASTINT (o->height) - size); 2360 XSETFASTINT (p->height, XFASTINT (o->height) - size_int);
2361 XSETFASTINT (o->height, size); 2361 XSETFASTINT (o->height, size_int);
2362 XSETFASTINT (p->top, XFASTINT (o->top) + size); 2362 XSETFASTINT (p->top, XFASTINT (o->top) + size_int);
2363 } 2363 }
2364 2364
2365 return new; 2365 return new;