Mercurial > emacs
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); |