diff options
| author | Richard M. Stallman | 1993-07-26 19:14:26 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-07-26 19:14:26 +0000 |
| commit | 5a41ab94d9b500763b8571973375c2b2202a93cc (patch) | |
| tree | 865ce5dfdaa0fb07c1134bb0ac04f964be10321e /src | |
| parent | 4c7f5b007a565991affc9893f60658a5e886ea97 (diff) | |
| download | emacs-5a41ab94d9b500763b8571973375c2b2202a93cc.tar.gz emacs-5a41ab94d9b500763b8571973375c2b2202a93cc.zip | |
(Fset_window_buffer): Clear window_end_{pos,valid}.
Diffstat (limited to 'src')
| -rw-r--r-- | src/window.c | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/src/window.c b/src/window.c index 89e65de1637..6d346fef410 100644 --- a/src/window.c +++ b/src/window.c | |||
| @@ -480,9 +480,13 @@ DEFUN ("window-end", Fwindow_end, Swindow_end, 0, 1, 0, | |||
| 480 | { | 480 | { |
| 481 | Lisp_Object value; | 481 | Lisp_Object value; |
| 482 | struct window *w = decode_window (window); | 482 | struct window *w = decode_window (window); |
| 483 | 483 | Lisp_Object buf; | |
| 484 | |||
| 485 | buf = w->buffer; | ||
| 486 | CHECK_BUFFER (buf, 0); | ||
| 487 | |||
| 484 | XSET (value, Lisp_Int, | 488 | XSET (value, Lisp_Int, |
| 485 | BUF_Z (current_buffer) - XFASTINT (w->window_end_pos)); | 489 | BUF_Z (XBUFFER (buf)) - XFASTINT (w->window_end_pos)); |
| 486 | 490 | ||
| 487 | return value; | 491 | return value; |
| 488 | } | 492 | } |
| @@ -1575,6 +1579,8 @@ BUFFER can be a buffer or buffer name.") | |||
| 1575 | } | 1579 | } |
| 1576 | 1580 | ||
| 1577 | w->buffer = buffer; | 1581 | w->buffer = buffer; |
| 1582 | w->window_end_pos = 0; | ||
| 1583 | w->window_end_valid = Qnil; | ||
| 1578 | w->hscroll = 0; | 1584 | w->hscroll = 0; |
| 1579 | Fset_marker (w->pointm, | 1585 | Fset_marker (w->pointm, |
| 1580 | make_number (BUF_PT (XBUFFER (buffer))), | 1586 | make_number (BUF_PT (XBUFFER (buffer))), |