From: Karl Heuer Date: Tue, 29 Mar 1994 06:37:09 +0000 (+0000) Subject: Fix glitches in previous change. X-Git-Tag: emacs-19.34~9279 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=26a8d14bf2db399b0e7373b3fd13ea6c63e01dab;p=emacs.git Fix glitches in previous change. --- diff --git a/src/indent.c b/src/indent.c index 01777f7d0bb..27d2adf86ce 100644 --- a/src/indent.c +++ b/src/indent.c @@ -651,20 +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_NUMBER_COERCE_MARKER (from, 0); CHECK_CONS (frompos, 0); - CHECK_INT (XCONS (frompos)->car, 0); - CHECK_INT (XCONS (frompos)->cdr, 0); - CHECK_INT (to, 0); + CHECK_NUMBER (XCONS (frompos)->car, 0); + CHECK_NUMBER (XCONS (frompos)->cdr, 0); + CHECK_NUMBER_COERCE_MARKER (to, 0); CHECK_CONS (topos, 0); - CHECK_INT (XCONS (topos)->car, 0); - CHECK_INT (XCONS (topos)->cdr, 0); - CHECK_INT (width); + CHECK_NUMBER (XCONS (topos)->car, 0); + CHECK_NUMBER (XCONS (topos)->cdr, 0); + CHECK_NUMBER (width, 0); if (!NILP (offsets)) { CHECK_CONS (offsets, 0); - CHECK_INT (XCONS (offsets)->car); - CHECK_INT (XCONS (offsets)->cdr); + CHECK_NUMBER (XCONS (offsets)->car, 0); + CHECK_NUMBER (XCONS (offsets)->cdr, 0); hscroll = XINT (XCONS (offsets)->car); tab_offset = XINT (XCONS (offsets)->cdr); }