diff options
| author | Gerd Moellmann | 1999-09-16 12:52:22 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 1999-09-16 12:52:22 +0000 |
| commit | a34dfd12cc0deef726e946412756c4991b4cd71e (patch) | |
| tree | 7851ce4f83e1a7cd6e70d3996e0849f9a22a9ce3 /src/window.c | |
| parent | 13c67cc64533a4b4b60f3e15a794d26e351f5ba5 (diff) | |
| download | emacs-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.c | 37 |
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); |