From: Karl Heuer Date: Thu, 10 Apr 1997 21:26:07 +0000 (+0000) Subject: (delete_window): Don't return value from void function. X-Git-Tag: emacs-20.1~2580 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=296b535c36f08100e7ba2dffc239e1f9e3383019;p=emacs.git (delete_window): Don't return value from void function. (Fset_window_buffer, Fdisplay_buffer): Don't use Lisp_Object as integer. --- 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) if (NILP (p->buffer) && NILP (p->hchild) && NILP (p->vchild)) - return Qnil; + return; parent = p->parent; if (NILP (parent)) @@ -1890,7 +1890,7 @@ BUFFER can be a buffer or buffer name.") XBUFFER (w->buffer)->last_selected_window = window; if (INTEGERP (XBUFFER (buffer)->display_count)) XSETINT (XBUFFER (buffer)->display_count, - XBUFFER (buffer)->display_count + 1); + XINT (XBUFFER (buffer)->display_count) + 1); XSETFASTINT (w->window_end_pos, 0); w->window_end_valid = Qnil; @@ -2237,15 +2237,19 @@ buffer names are handled.") other = lower = XWINDOW (window)->next, upper = window; if (!NILP (other) /* Check that OTHER and WINDOW are vertically arrayed. */ - && XWINDOW (other)->top != XWINDOW (window)->top - && XWINDOW (other)->height > XWINDOW (window)->height) + && !EQ (XWINDOW (other)->top, XWINDOW (window)->top) + && (XFASTINT (XWINDOW (other)->height) + > XFASTINT (XWINDOW (window)->height))) { - int total = XWINDOW (other)->height + XWINDOW (window)->height; + int total = (XFASTINT (XWINDOW (other)->height) + + XFASTINT (XWINDOW (window)->height)); Lisp_Object old_selected_window; old_selected_window = selected_window; selected_window = upper; - change_window_height (total / 2 - XWINDOW (upper)->height, 0); + change_window_height ((total / 2 + - XFASTINT (XWINDOW (upper)->height)), + 0); selected_window = old_selected_window; } }