comparison src/indent.c @ 6586:de99006a8b38

(Fcompute_motion): Don't use XFASTINT on possibly-negative coords. Also another doc fix.
author Karl Heuer <kwzh@gnu.org>
date Wed, 30 Mar 1994 03:02:02 +0000
parents 0e26a2431fa2
children 168667ab5085
comparison
equal deleted inserted replaced
6585:0e26a2431fa2 6586:de99006a8b38
629 TAB-OFFSET is the number of columns of the first tab that aren't\n\ 629 TAB-OFFSET is the number of columns of the first tab that aren't\n\
630 being displayed, perhaps because the line was continued within it.\n\ 630 being displayed, perhaps because the line was continued within it.\n\
631 If OFFSETS is nil, HSCROLL and TAB-OFFSET are assumed to be zero.\n\ 631 If OFFSETS is nil, HSCROLL and TAB-OFFSET are assumed to be zero.\n\
632 \n\ 632 \n\
633 The value is a list of five elements:\n\ 633 The value is a list of five elements:\n\
634 (POS VPOS HPOS PREVHPOS CONTIN)\n\ 634 (POS HPOS VPOS PREVHPOS CONTIN)\n\
635 POS is the buffer position where the scan stopped.\n\ 635 POS is the buffer position where the scan stopped.\n\
636 VPOS is the vertical position where the scan stopped.\n\ 636 VPOS is the vertical position where the scan stopped.\n\
637 HPOS is the horizontal position where the scan stopped.\n\ 637 HPOS is the horizontal position where the scan stopped.\n\
638 \n\ 638 \n\
639 PREVHPOS is the horizontal position one character back from POS.\n\ 639 PREVHPOS is the horizontal position one character back from POS.\n\
677 XINT (to), XINT (XCONS (topos)->cdr), 677 XINT (to), XINT (XCONS (topos)->cdr),
678 XINT (XCONS (topos)->car), 678 XINT (XCONS (topos)->car),
679 XINT (width), hscroll, tab_offset); 679 XINT (width), hscroll, tab_offset);
680 680
681 XFASTINT (bufpos) = pos->bufpos; 681 XFASTINT (bufpos) = pos->bufpos;
682 XFASTINT (hpos) = pos->hpos; 682 XSET (hpos, Lisp_Int, pos->hpos);
683 XSET (vpos, Lisp_Int, pos->vpos); 683 XSET (vpos, Lisp_Int, pos->vpos);
684 XFASTINT (prevhpos) = pos->prevhpos; 684 XSET (prevhpos, Lisp_Int, pos->prevhpos);
685 685
686 return Fcons (bufpos, 686 return Fcons (bufpos,
687 Fcons (hpos, 687 Fcons (hpos,
688 Fcons (vpos, 688 Fcons (vpos,
689 Fcons (prevhpos, 689 Fcons (prevhpos,