diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-03-29 05:58:40 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-03-29 05:58:40 +0000 |
| commit | ccf39e5651c22e6357cebd7c24026743f22b6c22 (patch) | |
| tree | 7313270db41e69b306c1f738bdd0798b3fa8c4ef /src/indent.c | |
| parent | 546714cf353527b3429a3d10527b2fe6ea1f18d0 (diff) | |
| download | emacs-ccf39e5651c22e6357cebd7c24026743f22b6c22.tar.gz | |
(Fcompute_motion): Typecheck all arguments.
Diffstat (limited to 'src/indent.c')
| -rw-r--r-- | src/indent.c | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/indent.c b/src/indent.c index 83122d3b0db..01777f7d0bb 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); } |