Mercurial > emacs
comparison src/window.c @ 6341:dfc758dd2b08
(window_scroll, Fmove_to_window_line): Avoid dividing negative numbers,
since the rounding effect is implementation-defined.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Mon, 14 Mar 1994 21:36:17 +0000 |
parents | 5e662ad3f594 |
children | e1b0356ae3c9 |
comparison
equal
deleted
inserted
replaced
6340:e9c46ef0a877 | 6341:dfc758dd2b08 |
---|---|
2176 XFASTINT (tem) = point; | 2176 XFASTINT (tem) = point; |
2177 tem = Fpos_visible_in_window_p (tem, window); | 2177 tem = Fpos_visible_in_window_p (tem, window); |
2178 | 2178 |
2179 if (NILP (tem)) | 2179 if (NILP (tem)) |
2180 { | 2180 { |
2181 Fvertical_motion (make_number (- ht / 2), window); | 2181 Fvertical_motion (make_number (- (ht / 2)), window); |
2182 XFASTINT (tem) = point; | 2182 XFASTINT (tem) = point; |
2183 Fset_marker (w->start, tem, w->buffer); | 2183 Fset_marker (w->start, tem, w->buffer); |
2184 w->force_start = Qt; | 2184 w->force_start = Qt; |
2185 } | 2185 } |
2186 | 2186 |
2465 | 2465 |
2466 start = marker_position (w->start); | 2466 start = marker_position (w->start); |
2467 XSET (window, Lisp_Window, w); | 2467 XSET (window, Lisp_Window, w); |
2468 if (start < BEGV || start > ZV) | 2468 if (start < BEGV || start > ZV) |
2469 { | 2469 { |
2470 Fvertical_motion (make_number (- height / 2), window); | 2470 Fvertical_motion (make_number (- (height / 2)), window); |
2471 Fset_marker (w->start, make_number (point), w->buffer); | 2471 Fset_marker (w->start, make_number (point), w->buffer); |
2472 w->start_at_line_beg = Fbolp (); | 2472 w->start_at_line_beg = Fbolp (); |
2473 w->force_start = Qt; | 2473 w->force_start = Qt; |
2474 } | 2474 } |
2475 else | 2475 else |