Mercurial > emacs

comparison src/window.c @ 13102:960db92441d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(window_scroll): Always set force_start.
author Richard M. Stallman <rms@gnu.org>
date Tue, 03 Oct 1995 09:09:30 +0000
parents 7a540e9cb21a
children 3b3c339f71c0
comparison
equal deleted inserted replaced
13101:32381faf1489 13102:960db92441d8
2547 register int ht = window_internal_height (w); 2547 register int ht = window_internal_height (w);
2548 register Lisp_Object tem; 2548 register Lisp_Object tem;
2549 int lose; 2549 int lose;
2550 Lisp_Object bolp, nmoved; 2550 Lisp_Object bolp, nmoved;
2551 2551
2552 /* Always set force_start so that redisplay_window will run
2553 thw window-start-functions. */
2554 w->force_start = Qt;
2555
2552 XSETFASTINT (tem, PT); 2556 XSETFASTINT (tem, PT);
2553 tem = Fpos_visible_in_window_p (tem, window); 2557 tem = Fpos_visible_in_window_p (tem, window);
2554 2558
2555 if (NILP (tem)) 2559 if (NILP (tem))
2556 { 2560 {
2557 Fvertical_motion (make_number (- (ht / 2)), window); 2561 Fvertical_motion (make_number (- (ht / 2)), window);
2558 XSETFASTINT (tem, PT); 2562 XSETFASTINT (tem, PT);
2559 Fset_marker (w->start, tem, w->buffer); 2563 Fset_marker (w->start, tem, w->buffer);
2560 w->force_start = Qt;
2561 } 2564 }
2562 2565
2563 SET_PT (marker_position (w->start)); 2566 SET_PT (marker_position (w->start));
2564 lose = n < 0 && PT == BEGV; 2567 lose = n < 0 && PT == BEGV;
2565 Fvertical_motion (make_number (n), window); 2568 Fvertical_motion (make_number (n), window);