diff options
author | Ken Raeburn <raeburn@raeburn.org> | 1999-09-13 02:23:04 +0000 |
---|---|---|
committer | Ken Raeburn <raeburn@raeburn.org> | 1999-09-13 02:23:04 +0000 |
commit | 03699b140e13aee5b49fa4678e97dff5855e789c (patch) | |
tree | 79213225b326eeaa5385bf863f2e3c2df62963e5 /src/insdel.c | |
parent | 926106201f8bfebbaac3c5b0f5e36192b7f00f1b (diff) | |
download | emacs-03699b140e13aee5b49fa4678e97dff5855e789c.tar.gz |
Use XCAR, XCDR, and XFLOAT_DATA instead of explicit member access.
Diffstat (limited to 'src/insdel.c')
-rw-r--r-- | src/insdel.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/insdel.c b/src/insdel.c index c0157772f13..83424a019bc 100644 --- a/src/insdel.c +++ b/src/insdel.c @@ -2660,26 +2660,26 @@ DEFUN ("combine-after-change-execute", Fcombine_after_change_execute, /* Scan the various individual changes, accumulating the range info in BEG, END and CHANGE. */ for (tail = combine_after_change_list; CONSP (tail); - tail = XCONS (tail)->cdr) + tail = XCDR (tail)) { Lisp_Object elt; int thisbeg, thisend, thischange; /* Extract the info from the next element. */ - elt = XCONS (tail)->car; + elt = XCAR (tail); if (! CONSP (elt)) continue; - thisbeg = XINT (XCONS (elt)->car); + thisbeg = XINT (XCAR (elt)); - elt = XCONS (elt)->cdr; + elt = XCDR (elt); if (! CONSP (elt)) continue; - thisend = XINT (XCONS (elt)->car); + thisend = XINT (XCAR (elt)); - elt = XCONS (elt)->cdr; + elt = XCDR (elt); if (! CONSP (elt)) continue; - thischange = XINT (XCONS (elt)->car); + thischange = XINT (XCAR (elt)); /* Merge this range into the accumulated range. */ change += thischange; |