Mercurial > emacs

comparison src/indent.c @ 6573:33ae9314b443

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix glitches in previous change.
author Karl Heuer <kwzh@gnu.org>
date Tue, 29 Mar 1994 06:37:09 +0000
parents 8f28e5ce91cc
children 0e26a2431fa2
comparison
equal deleted inserted replaced
6572:8f28e5ce91cc 6573:33ae9314b443
649 { 649 {
650 Lisp_Object bufpos, hpos, vpos, prevhpos, contin; 650 Lisp_Object bufpos, hpos, vpos, prevhpos, contin;
651 struct position *pos; 651 struct position *pos;
652 int hscroll, tab_offset; 652 int hscroll, tab_offset;
653 653
654 CHECK_INT (from, 0); 654 CHECK_NUMBER_COERCE_MARKER (from, 0);
655 CHECK_CONS (frompos, 0); 655 CHECK_CONS (frompos, 0);
656 CHECK_INT (XCONS (frompos)->car, 0); 656 CHECK_NUMBER (XCONS (frompos)->car, 0);
657 CHECK_INT (XCONS (frompos)->cdr, 0); 657 CHECK_NUMBER (XCONS (frompos)->cdr, 0);
658 CHECK_INT (to, 0); 658 CHECK_NUMBER_COERCE_MARKER (to, 0);
659 CHECK_CONS (topos, 0); 659 CHECK_CONS (topos, 0);
660 CHECK_INT (XCONS (topos)->car, 0); 660 CHECK_NUMBER (XCONS (topos)->car, 0);
661 CHECK_INT (XCONS (topos)->cdr, 0); 661 CHECK_NUMBER (XCONS (topos)->cdr, 0);
662 CHECK_INT (width); 662 CHECK_NUMBER (width, 0);
663 if (!NILP (offsets)) 663 if (!NILP (offsets))
664 { 664 {
665 CHECK_CONS (offsets, 0); 665 CHECK_CONS (offsets, 0);
666 CHECK_INT (XCONS (offsets)->car); 666 CHECK_NUMBER (XCONS (offsets)->car, 0);
667 CHECK_INT (XCONS (offsets)->cdr); 667 CHECK_NUMBER (XCONS (offsets)->cdr, 0);
668 hscroll = XINT (XCONS (offsets)->car); 668 hscroll = XINT (XCONS (offsets)->car);
669 tab_offset = XINT (XCONS (offsets)->cdr); 669 tab_offset = XINT (XCONS (offsets)->cdr);
670 } 670 }
671 else 671 else
672 hscroll = tab_offset = 0; 672 hscroll = tab_offset = 0;