Mercurial > emacs

changeset 6572:8f28e5ce91cc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fcompute_motion): Typecheck all arguments.
author Karl Heuer <kwzh@gnu.org>
date Tue, 29 Mar 1994 05:58:40 +0000
parents ef864f9fd3cc
children 33ae9314b443
files src/indent.c
diffstat 1 files changed, 9 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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);
     }