diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-03-14 21:36:17 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-03-14 21:36:17 +0000 |
| commit | cd2be1ddb82fbfc4a0e7f4c47ae972ed61b1bf22 (patch) | |
| tree | e3b5b86b6d547f357040192fc976cf0f2e0cc47d /src | |
| parent | af2820894be368e6b75e339012805e8cd9054201 (diff) | |
| download | emacs-cd2be1ddb82fbfc4a0e7f4c47ae972ed61b1bf22.tar.gz | |
(window_scroll, Fmove_to_window_line): Avoid dividing negative numbers,
since the rounding effect is implementation-defined.
Diffstat (limited to 'src')
| -rw-r--r-- | src/window.c | 4 |
1 files 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; |