From ccf39e5651c22e6357cebd7c24026743f22b6c22 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 29 Mar 1994 05:58:40 +0000 Subject: [PATCH] (Fcompute_motion): Typecheck all arguments. --- src/indent.c | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/src/indent.c b/src/indent.c index 83122d3b0d..01777f7d0b 100644 --- a/src/indent.c +++ b/src/indent.c @@ -651,11 +651,20 @@ visible section of the buffer, and pass LINE and COL as TOPOS.") struct position *pos; int hscroll, tab_offset; + CHECK_INT (from, 0); CHECK_CONS (frompos, 0); + CHECK_INT (XCONS (frompos)->car, 0); + CHECK_INT (XCONS (frompos)->cdr, 0); + CHECK_INT (to, 0); CHECK_CONS (topos, 0); + CHECK_INT (XCONS (topos)->car, 0); + CHECK_INT (XCONS (topos)->cdr, 0); + CHECK_INT (width); if (!NILP (offsets)) { CHECK_CONS (offsets, 0); + CHECK_INT (XCONS (offsets)->car); + CHECK_INT (XCONS (offsets)->cdr); hscroll = XINT (XCONS (offsets)->car); tab_offset = XINT (XCONS (offsets)->cdr); } -- 2.20.1