Mercurial > emacs
comparison src/window.c @ 13102:960db92441d8
(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); |