From cd2be1ddb82fbfc4a0e7f4c47ae972ed61b1bf22 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 14 Mar 1994 21:36:17 +0000 Subject: [PATCH] (window_scroll, Fmove_to_window_line): Avoid dividing negative numbers, since the rounding effect is implementation-defined. --- src/window.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/window.c b/src/window.c index 78a85300b98..0f827113b65 100644 --- a/src/window.c +++ b/src/window.c @@ -2178,7 +2178,7 @@ window_scroll (window, n, noerror) if (NILP (tem)) { - Fvertical_motion (make_number (- ht / 2), window); + Fvertical_motion (make_number (- (ht / 2)), window); XFASTINT (tem) = point; Fset_marker (w->start, tem, w->buffer); w->force_start = Qt; @@ -2467,7 +2467,7 @@ negative means relative to bottom of window.") XSET (window, Lisp_Window, w); if (start < BEGV || start > ZV) { - Fvertical_motion (make_number (- height / 2), window); + Fvertical_motion (make_number (- (height / 2)), window); Fset_marker (w->start, make_number (point), w->buffer); w->start_at_line_beg = Fbolp (); w->force_start = Qt; -- 2.39.5