# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 764920720 0
# Node ID 8f28e5ce91ccf0cfdf66bfd29d812a7df1957cef
# Parent  ef864f9fd3cc318514ae5a43413eccf632cdd29b
(Fcompute_motion): Typecheck all arguments.

diff -r ef864f9fd3cc -r 8f28e5ce91cc src/indent.c
--- a/src/indent.c	Tue Mar 29 05:54:39 1994 +0000
+++ b/src/indent.c	Tue Mar 29 05:58:40 1994 +0000
@@ -651,11 +651,20 @@
   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);
     }