From f1ecfe9bc4c2aabf12cb15d11dc97d181b3779b2 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 14 Mar 1994 01:29:15 +0000 Subject: [PATCH] (Fvertical_motion): New optional arg WINDOW. --- src/indent.c | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/src/indent.c b/src/indent.c index e4ab5ff735e..5eef49c3a16 100644 --- a/src/indent.c +++ b/src/indent.c @@ -805,25 +805,31 @@ vmotion (from, vtarget, width, hscroll, window) goto retry; } -DEFUN ("vertical-motion", Fvertical_motion, Svertical_motion, 1, 1, 0, +DEFUN ("vertical-motion", Fvertical_motion, Svertical_motion, 1, 2, 0, "Move to start of screen line LINES lines down.\n\ If LINES is negative, this is moving up.\n\ +The optional second argument WINDOW specifies the window\n\ + to use for computations.\n\ Sets point to position found; this may be start of line\n\ or just the start of a continuation line.\n\ Returns number of lines moved; may be closer to zero than LINES\n\ if beginning or end of buffer was reached.") - (lines) - Lisp_Object lines; + (lines, window) + Lisp_Object lines, window; { struct position pos; register struct window *w = XWINDOW (selected_window); int width = window_internal_width (w) - 1; CHECK_NUMBER (lines, 0); + if (! NILP (window)) + CHECK_WINDOW (window, 0); + else + XSET (window, Lisp_Window, selected_window); pos = *vmotion (point, XINT (lines), width, /* Not XFASTINT since perhaps could be negative */ - XINT (w->hscroll), selected_window); + XINT (w->hscroll), window); SET_PT (pos.bufpos); return make_number (pos.vpos); -- 2.39.5