aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorKarl Heuer1997-04-10 21:26:07 +0000
committerKarl Heuer1997-04-10 21:26:07 +0000
commit296b535c36f08100e7ba2dffc239e1f9e3383019 (patch)
treeb4c9fcee9da7c8da6603095984b27f26ce848bcf /src
parent99d3fac764b70cbb9dbe4e157dfd3ad12c045dfa (diff)
downloademacs-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')
-rw-r--r--src/window.c16
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 }