# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 763680977 0
# Node ID dfc758dd2b080e152d4465f73a91e7dfbc1476e3
# Parent  e9c46ef0a8777972220bc56ae5655198766eac59
(window_scroll, Fmove_to_window_line): Avoid dividing negative numbers,
since the rounding effect is implementation-defined.

diff -r e9c46ef0a877 -r dfc758dd2b08 src/window.c
--- a/src/window.c	Mon Mar 14 21:27:41 1994 +0000
+++ b/src/window.c	Mon Mar 14 21:36:17 1994 +0000
@@ -2178,7 +2178,7 @@
 
   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 @@
   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;