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.")
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);
}
......
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