aboutsummaryrefslogtreecommitdiffstats
path: root/src/window.c
diff options
context:
space:
mode:
authorGerd Moellmann1999-09-16 12:52:22 +0000
committerGerd Moellmann1999-09-16 12:52:22 +0000
commita34dfd12cc0deef726e946412756c4991b4cd71e (patch)
tree7851ce4f83e1a7cd6e70d3996e0849f9a22a9ce3 /src/window.c
parent13c67cc64533a4b4b60f3e15a794d26e351f5ba5 (diff)
downloademacs-a34dfd12cc0deef726e946412756c4991b4cd71e.tar.gz
emacs-a34dfd12cc0deef726e946412756c4991b4cd71e.zip
(Fset_window_buffer): Remove unused variables.
(Fset_window_margins): Ditto. (window_fixed_size_p): Check window's height_fixed_p flag.
Diffstat (limited to 'src/window.c')
-rw-r--r--src/window.c37
1 files changed, 20 insertions, 17 deletions
diff --git a/src/window.c b/src/window.c
index 663b8045a75..cc612315c64 100644
--- a/src/window.c
+++ b/src/window.c
@@ -1967,22 +1967,27 @@ window_fixed_size_p (w, width_p, check_siblings_p)
1967 } 1967 }
1968 else if (BUFFERP (w->buffer)) 1968 else if (BUFFERP (w->buffer))
1969 { 1969 {
1970 Lisp_Object val; 1970 if (w->height_fixed_p && !width_p)
1971 struct buffer *old = current_buffer; 1971 fixed_p = 1;
1972 1972 else
1973 current_buffer = XBUFFER (w->buffer);
1974 val = find_symbol_value (Qwindow_size_fixed);
1975 current_buffer = old;
1976
1977 fixed_p = 0;
1978 if (!EQ (val, Qunbound))
1979 { 1973 {
1980 fixed_p = !NILP (val); 1974 struct buffer *old = current_buffer;
1981 1975 Lisp_Object val;
1982 if (fixed_p 1976
1983 && ((EQ (val, Qheight) && width_p) 1977 current_buffer = XBUFFER (w->buffer);
1984 || (EQ (val, Qwidth) && !width_p))) 1978 val = find_symbol_value (Qwindow_size_fixed);
1985 fixed_p = 0; 1979 current_buffer = old;
1980
1981 fixed_p = 0;
1982 if (!EQ (val, Qunbound))
1983 {
1984 fixed_p = !NILP (val);
1985
1986 if (fixed_p
1987 && ((EQ (val, Qheight) && width_p)
1988 || (EQ (val, Qwidth) && !width_p)))
1989 fixed_p = 0;
1990 }
1986 } 1991 }
1987 1992
1988 /* Can't tell if this one is resizable without looking at 1993 /* Can't tell if this one is resizable without looking at
@@ -2404,7 +2409,6 @@ BUFFER can be a buffer or buffer name.")
2404{ 2409{
2405 register Lisp_Object tem; 2410 register Lisp_Object tem;
2406 register struct window *w = decode_window (window); 2411 register struct window *w = decode_window (window);
2407 struct buffer *b;
2408 2412
2409 buffer = Fget_buffer (buffer); 2413 buffer = Fget_buffer (buffer);
2410 CHECK_BUFFER (buffer, 1); 2414 CHECK_BUFFER (buffer, 1);
@@ -4585,7 +4589,6 @@ A nil width parameter means no margin.")
4585 Lisp_Object window, left, right; 4589 Lisp_Object window, left, right;
4586{ 4590{
4587 struct window *w = decode_window (window); 4591 struct window *w = decode_window (window);
4588 struct frame *f = XFRAME (w->frame);
4589 4592
4590 if (!NILP (left)) 4593 if (!NILP (left))
4591 CHECK_NUMBER_OR_FLOAT (left, 1); 4594 CHECK_NUMBER_OR_FLOAT (left, 1);