diff options
| author | Karl Heuer | 1995-12-21 17:14:53 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-12-21 17:14:53 +0000 |
| commit | 77ae0fe32418de7cd79e6b6f12f7cb09abfc3079 (patch) | |
| tree | cb5edc80795a1e1540647fcc6ba4433aa599cfad /src/window.c | |
| parent | a03f91ada2cec963ec3e73e81dbc8fbd4e8e0cc9 (diff) | |
| download | emacs-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.c | 48 |
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) | |||
| 2246 | DEFUN ("split-window", Fsplit_window, Ssplit_window, 0, 3, "", | 2246 | DEFUN ("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\ |
| 2248 | WINDOW defaults to selected one and SIZE to half its size.\n\ | 2248 | WINDOW defaults to selected one and SIZE to half its size.\n\ |
| 2249 | If optional third arg HOR-FLAG is non-nil, split side by side\n\ | 2249 | If optional third arg HORFLAG is non-nil, split side by side\n\ |
| 2250 | and put SIZE columns in the first of the pair.") | 2250 | and 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; |