Commit ccf39e56 authored by Karl Heuer's avatar Karl Heuer
Browse files

(Fcompute_motion): Typecheck all arguments.

parent 546714cf
...@@ -651,11 +651,20 @@ visible section of the buffer, and pass LINE and COL as TOPOS.") ...@@ -651,11 +651,20 @@ visible section of the buffer, and pass LINE and COL as TOPOS.")
struct position *pos; struct position *pos;
int hscroll, tab_offset; int hscroll, tab_offset;
CHECK_INT (from, 0);
CHECK_CONS (frompos, 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_CONS (topos, 0);
CHECK_INT (XCONS (topos)->car, 0);
CHECK_INT (XCONS (topos)->cdr, 0);
CHECK_INT (width);
if (!NILP (offsets)) if (!NILP (offsets))
{ {
CHECK_CONS (offsets, 0); CHECK_CONS (offsets, 0);
CHECK_INT (XCONS (offsets)->car);
CHECK_INT (XCONS (offsets)->cdr);
hscroll = XINT (XCONS (offsets)->car); hscroll = XINT (XCONS (offsets)->car);
tab_offset = XINT (XCONS (offsets)->cdr); tab_offset = XINT (XCONS (offsets)->cdr);
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment