Mercurial > emacs

comparison src/insdel.c @ 25662:0a7261c1d487

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
author Ken Raeburn <raeburn@raeburn.org>
date Mon, 13 Sep 1999 02:23:04 +0000
parents a48ea135fed4
children 72f00825a576
comparison
equal deleted inserted replaced
25661:a6e2ae7964fb 25662:0a7261c1d487
2658 change = 0; 2658 change = 0;
2659 2659
2660 /* Scan the various individual changes, 2660 /* Scan the various individual changes,
2661 accumulating the range info in BEG, END and CHANGE. */ 2661 accumulating the range info in BEG, END and CHANGE. */
2662 for (tail = combine_after_change_list; CONSP (tail); 2662 for (tail = combine_after_change_list; CONSP (tail);
2663 tail = XCONS (tail)->cdr) 2663 tail = XCDR (tail))
2664 { 2664 {
2665 Lisp_Object elt; 2665 Lisp_Object elt;
2666 int thisbeg, thisend, thischange; 2666 int thisbeg, thisend, thischange;
2667 2667
2668 /* Extract the info from the next element. */ 2668 /* Extract the info from the next element. */
2669 elt = XCONS (tail)->car; 2669 elt = XCAR (tail);
2670 if (! CONSP (elt)) 2670 if (! CONSP (elt))
2671 continue; 2671 continue;
2672 thisbeg = XINT (XCONS (elt)->car); 2672 thisbeg = XINT (XCAR (elt));
2673 2673
2674 elt = XCONS (elt)->cdr; 2674 elt = XCDR (elt);
2675 if (! CONSP (elt)) 2675 if (! CONSP (elt))
2676 continue; 2676 continue;
2677 thisend = XINT (XCONS (elt)->car); 2677 thisend = XINT (XCAR (elt));
2678 2678
2679 elt = XCONS (elt)->cdr; 2679 elt = XCDR (elt);
2680 if (! CONSP (elt)) 2680 if (! CONSP (elt))
2681 continue; 2681 continue;
2682 thischange = XINT (XCONS (elt)->car); 2682 thischange = XINT (XCAR (elt));
2683 2683
2684 /* Merge this range into the accumulated range. */ 2684 /* Merge this range into the accumulated range. */
2685 change += thischange; 2685 change += thischange;
2686 if (thisbeg < beg) 2686 if (thisbeg < beg)
2687 beg = thisbeg; 2687 beg = thisbeg;