diff options
| author | Karl Heuer | 1997-04-10 21:26:07 +0000 |
|---|---|---|
| committer | Karl Heuer | 1997-04-10 21:26:07 +0000 |
| commit | 296b535c36f08100e7ba2dffc239e1f9e3383019 (patch) | |
| tree | b4c9fcee9da7c8da6603095984b27f26ce848bcf /src/window.c | |
| parent | 99d3fac764b70cbb9dbe4e157dfd3ad12c045dfa (diff) | |
| download | emacs-296b535c36f08100e7ba2dffc239e1f9e3383019.tar.gz emacs-296b535c36f08100e7ba2dffc239e1f9e3383019.zip | |
(delete_window): Don't return value from void function.
(Fset_window_buffer, Fdisplay_buffer): Don't use Lisp_Object as integer.
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 97a6c860598..0ff3b0fb85c 100644 --- a/src/window.c +++ b/src/window.c | |||
| @@ -819,7 +819,7 @@ delete_window (window) | |||
| 819 | if (NILP (p->buffer) | 819 | if (NILP (p->buffer) |
| 820 | && NILP (p->hchild) | 820 | && NILP (p->hchild) |
| 821 | && NILP (p->vchild)) | 821 | && NILP (p->vchild)) |
| 822 | return Qnil; | 822 | return; |
| 823 | 823 | ||
| 824 | parent = p->parent; | 824 | parent = p->parent; |
| 825 | if (NILP (parent)) | 825 | if (NILP (parent)) |
| @@ -1890,7 +1890,7 @@ BUFFER can be a buffer or buffer name.") | |||
| 1890 | XBUFFER (w->buffer)->last_selected_window = window; | 1890 | XBUFFER (w->buffer)->last_selected_window = window; |
| 1891 | if (INTEGERP (XBUFFER (buffer)->display_count)) | 1891 | if (INTEGERP (XBUFFER (buffer)->display_count)) |
| 1892 | XSETINT (XBUFFER (buffer)->display_count, | 1892 | XSETINT (XBUFFER (buffer)->display_count, |
| 1893 | XBUFFER (buffer)->display_count + 1); | 1893 | XINT (XBUFFER (buffer)->display_count) + 1); |
| 1894 | 1894 | ||
| 1895 | XSETFASTINT (w->window_end_pos, 0); | 1895 | XSETFASTINT (w->window_end_pos, 0); |
| 1896 | w->window_end_valid = Qnil; | 1896 | w->window_end_valid = Qnil; |
| @@ -2237,15 +2237,19 @@ buffer names are handled.") | |||
| 2237 | other = lower = XWINDOW (window)->next, upper = window; | 2237 | other = lower = XWINDOW (window)->next, upper = window; |
| 2238 | if (!NILP (other) | 2238 | if (!NILP (other) |
| 2239 | /* Check that OTHER and WINDOW are vertically arrayed. */ | 2239 | /* Check that OTHER and WINDOW are vertically arrayed. */ |
| 2240 | && XWINDOW (other)->top != XWINDOW (window)->top | 2240 | && !EQ (XWINDOW (other)->top, XWINDOW (window)->top) |
| 2241 | && XWINDOW (other)->height > XWINDOW (window)->height) | 2241 | && (XFASTINT (XWINDOW (other)->height) |
| 2242 | > XFASTINT (XWINDOW (window)->height))) | ||
| 2242 | { | 2243 | { |
| 2243 | int total = XWINDOW (other)->height + XWINDOW (window)->height; | 2244 | int total = (XFASTINT (XWINDOW (other)->height) |
| 2245 | + XFASTINT (XWINDOW (window)->height)); | ||
| 2244 | Lisp_Object old_selected_window; | 2246 | Lisp_Object old_selected_window; |
| 2245 | old_selected_window = selected_window; | 2247 | old_selected_window = selected_window; |
| 2246 | 2248 | ||
| 2247 | selected_window = upper; | 2249 | selected_window = upper; |
| 2248 | change_window_height (total / 2 - XWINDOW (upper)->height, 0); | 2250 | change_window_height ((total / 2 |
| 2251 | - XFASTINT (XWINDOW (upper)->height)), | ||
| 2252 | 0); | ||
| 2249 | selected_window = old_selected_window; | 2253 | selected_window = old_selected_window; |
| 2250 | } | 2254 | } |
| 2251 | } | 2255 | } |