mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-22 20:42:26 -08:00
Code Issues Projects Releases Wiki Activity

(window_scroll, Fmove_to_window_line): Avoid dividing negative numbers,

Browse source 
since the rounding effect is implementation-defined.
This commit is contained in:
Karl Heuer 1994-03-14 21:36:17 +00:00
parent af2820894b
commit cd2be1ddb8
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/window.c
View file

@ -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;