comparison src/window.c @ 11829:89c0689c5b1e

(Frecenter): Fix args to vmotion (overlooked in May 13 change).
author Karl Heuer <kwzh@gnu.org>
date Tue, 16 May 1995 02:56:20 +0000
parents 56ffc162094b
children 35b170692e4a
comparison
equal deleted inserted replaced
11828:cb6c1026a0f7 11829:89c0689c5b1e
2778 register Lisp_Object n; 2778 register Lisp_Object n;
2779 { 2779 {
2780 register struct window *w = XWINDOW (selected_window); 2780 register struct window *w = XWINDOW (selected_window);
2781 register int ht = window_internal_height (w); 2781 register int ht = window_internal_height (w);
2782 struct position pos; 2782 struct position pos;
2783 Lisp_Object window;
2784 2783
2785 if (NILP (n)) 2784 if (NILP (n))
2786 { 2785 {
2787 extern int frame_garbaged; 2786 extern int frame_garbaged;
2788 2787
2800 } 2799 }
2801 2800
2802 if (XINT (n) < 0) 2801 if (XINT (n) < 0)
2803 XSETINT (n, XINT (n) + ht); 2802 XSETINT (n, XINT (n) + ht);
2804 2803
2805 XSETWINDOW (window, w); 2804 pos = *vmotion (point, - XINT (n), w);
2806 pos = *vmotion (point, - XINT (n), window_internal_width (w) - 1,
2807 XINT (w->hscroll), window);
2808 2805
2809 Fset_marker (w->start, make_number (pos.bufpos), w->buffer); 2806 Fset_marker (w->start, make_number (pos.bufpos), w->buffer);
2810 w->start_at_line_beg = ((pos.bufpos == BEGV 2807 w->start_at_line_beg = ((pos.bufpos == BEGV
2811 || FETCH_CHAR (pos.bufpos - 1) == '\n') 2808 || FETCH_CHAR (pos.bufpos - 1) == '\n')
2812 ? Qt : Qnil); 2809 ? Qt : Qnil);