# HG changeset patch # User Richard M. Stallman # Date 776550758 0 # Node ID 6d2f0901efe939247cb79e339beb7650618f4556 # Parent daeb611442e90909173834e3baf38b12a5b6d329 (Fwindow_end): Undo previous change. diff -r daeb611442e9 -r 6d2f0901efe9 src/window.c --- a/src/window.c Wed Aug 10 19:28:38 1994 +0000 +++ b/src/window.c Wed Aug 10 20:32:38 1994 +0000 @@ -489,12 +489,8 @@ return Fmarker_position (decode_window (window)->start); } -DEFUN ("window-end", Fwindow_end, Swindow_end, 0, 1, 0, - "Return position at which display currently ends in WINDOW.\n\ -This is updated by redisplay, when it runs to completion.\n\ -Simply changing the buffer text or setting `window-start'\n\ -does not update this value.\n\ -\n\ +/* This is text temporarily removed from the doc string below. + This function returns nil if the position is not currently known.\n\ That happens when redisplay is preempted and doesn't finish.\n\ If in that case you want to compute where the end of the window would\n\ @@ -502,7 +498,13 @@ (save-excursion\n\ (goto-char (window-start window))\n\ (vertical-motion (1- (window-height window)) window)\n\ - (point))") + (point))") */ + +DEFUN ("window-end", Fwindow_end, Swindow_end, 0, 1, 0, + "Return position at which display currently ends in WINDOW.\n\ +This is updated by redisplay, when it runs to completion.\n\ +Simply changing the buffer text or setting `window-start'\n\ +does not update this value.") (window) Lisp_Object window; { @@ -513,12 +515,14 @@ buf = w->buffer; CHECK_BUFFER (buf, 0); +#if 0 /* This change broke some things. We should make it later. */ /* If we don't know the end position, return nil. The user can compute it with vertical-motion if he wants to. It would be nicer to do it automatically, but that's so slow that it would probably bother people. */ if (NILP (w->window_end_valid)) return Qnil; +#endif XSET (value, Lisp_Int, BUF_Z (XBUFFER (buf)) - XFASTINT (w->window_end_pos));