Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 05:47:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(delete_window): Don't return value from void function.

Browse source 
(Fset_window_buffer, Fdisplay_buffer): Don't use Lisp_Object as integer.
This commit is contained in:
Karl Heuer 1997-04-10 21:26:07 +00:00
parent 99d3fac764
commit 296b535c36
1 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/window.c
View file

@ -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;
}
}