From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 26 Jul 1993 19:14:26 +0000 (+0000)
Subject: (Fset_window_buffer): Clear window_end_{pos,valid}.
X-Git-Tag: emacs-19.34~11559
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5a41ab94d9b500763b8571973375c2b2202a93cc;p=emacs.git

(Fset_window_buffer): Clear window_end_{pos,valid}.
---

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,
 {
   Lisp_Object value;
   struct window *w = decode_window (window);
-  
+  Lisp_Object buf;
+
+  buf = w->buffer;
+  CHECK_BUFFER (buf, 0);
+
   XSET (value, Lisp_Int,
-	BUF_Z (current_buffer) - XFASTINT (w->window_end_pos));
+	BUF_Z (XBUFFER (buf)) - XFASTINT (w->window_end_pos));
 
   return value;
 }
@@ -1575,6 +1579,8 @@ BUFFER can be a buffer or buffer name.")
     }
 
   w->buffer = buffer;
+  w->window_end_pos = 0;
+  w->window_end_valid = Qnil;
   w->hscroll = 0;
   Fset_marker (w->pointm,
 	       make_number (BUF_PT (XBUFFER (buffer))),