aboutsummaryrefslogtreecommitdiffstats
path: root/src/buffer.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/buffer.c')
-rw-r--r--src/buffer.c58
1 files changed, 29 insertions, 29 deletions
diff --git a/src/buffer.c b/src/buffer.c
index 2a165c5f547..ec6f4647119 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -1102,8 +1102,8 @@ is first appended to NAME, to speed up finding a non-existent buffer. */)
1102 { 1102 {
1103 char number[sizeof "-999999"]; 1103 char number[sizeof "-999999"];
1104 1104
1105 /* Use XINT instead of XFASTINT to work around GCC bug 80776. */ 1105 /* Use XFIXNUM instead of XFIXNAT to work around GCC bug 80776. */
1106 int i = XINT (Frandom (make_fixnum (1000000))); 1106 int i = XFIXNUM (Frandom (make_fixnum (1000000)));
1107 eassume (0 <= i && i < 1000000); 1107 eassume (0 <= i && i < 1000000);
1108 1108
1109 AUTO_STRING_WITH_LEN (lnumber, number, sprintf (number, "-%d", i)); 1109 AUTO_STRING_WITH_LEN (lnumber, number, sprintf (number, "-%d", i));
@@ -2236,13 +2236,13 @@ validate_region (register Lisp_Object *b, register Lisp_Object *e)
2236 CHECK_FIXNUM_COERCE_MARKER (*b); 2236 CHECK_FIXNUM_COERCE_MARKER (*b);
2237 CHECK_FIXNUM_COERCE_MARKER (*e); 2237 CHECK_FIXNUM_COERCE_MARKER (*e);
2238 2238
2239 if (XINT (*b) > XINT (*e)) 2239 if (XFIXNUM (*b) > XFIXNUM (*e))
2240 { 2240 {
2241 Lisp_Object tem; 2241 Lisp_Object tem;
2242 tem = *b; *b = *e; *e = tem; 2242 tem = *b; *b = *e; *e = tem;
2243 } 2243 }
2244 2244
2245 if (! (BEGV <= XINT (*b) && XINT (*e) <= ZV)) 2245 if (! (BEGV <= XFIXNUM (*b) && XFIXNUM (*e) <= ZV))
2246 args_out_of_range_3 (Fcurrent_buffer (), *b, *e); 2246 args_out_of_range_3 (Fcurrent_buffer (), *b, *e);
2247} 2247}
2248 2248
@@ -3214,15 +3214,15 @@ sort_overlays (Lisp_Object *overlay_vec, ptrdiff_t noverlays, struct window *w)
3214 } 3214 }
3215 else if (FIXNUMP (tem)) 3215 else if (FIXNUMP (tem))
3216 { 3216 {
3217 sortvec[j].priority = XINT (tem); 3217 sortvec[j].priority = XFIXNUM (tem);
3218 sortvec[j].spriority = 0; 3218 sortvec[j].spriority = 0;
3219 } 3219 }
3220 else if (CONSP (tem)) 3220 else if (CONSP (tem))
3221 { 3221 {
3222 Lisp_Object car = XCAR (tem); 3222 Lisp_Object car = XCAR (tem);
3223 Lisp_Object cdr = XCDR (tem); 3223 Lisp_Object cdr = XCDR (tem);
3224 sortvec[j].priority = FIXNUMP (car) ? XINT (car) : 0; 3224 sortvec[j].priority = FIXNUMP (car) ? XFIXNUM (car) : 0;
3225 sortvec[j].spriority = FIXNUMP (cdr) ? XINT (cdr) : 0; 3225 sortvec[j].spriority = FIXNUMP (cdr) ? XFIXNUM (cdr) : 0;
3226 } 3226 }
3227 j++; 3227 j++;
3228 } 3228 }
@@ -3290,7 +3290,7 @@ record_overlay_string (struct sortstrlist *ssl, Lisp_Object str,
3290 ssl->buf[ssl->used].string = str; 3290 ssl->buf[ssl->used].string = str;
3291 ssl->buf[ssl->used].string2 = str2; 3291 ssl->buf[ssl->used].string2 = str2;
3292 ssl->buf[ssl->used].size = size; 3292 ssl->buf[ssl->used].size = size;
3293 ssl->buf[ssl->used].priority = (FIXNUMP (pri) ? XINT (pri) : 0); 3293 ssl->buf[ssl->used].priority = (FIXNUMP (pri) ? XFIXNUM (pri) : 0);
3294 ssl->used++; 3294 ssl->used++;
3295 3295
3296 if (NILP (BVAR (current_buffer, enable_multibyte_characters))) 3296 if (NILP (BVAR (current_buffer, enable_multibyte_characters)))
@@ -3870,7 +3870,7 @@ for the rear of the overlay advance when text is inserted there
3870 CHECK_FIXNUM_COERCE_MARKER (beg); 3870 CHECK_FIXNUM_COERCE_MARKER (beg);
3871 CHECK_FIXNUM_COERCE_MARKER (end); 3871 CHECK_FIXNUM_COERCE_MARKER (end);
3872 3872
3873 if (XINT (beg) > XINT (end)) 3873 if (XFIXNUM (beg) > XFIXNUM (end))
3874 { 3874 {
3875 Lisp_Object temp; 3875 Lisp_Object temp;
3876 temp = beg; beg = end; end = temp; 3876 temp = beg; beg = end; end = temp;
@@ -3990,7 +3990,7 @@ buffer. */)
3990 CHECK_FIXNUM_COERCE_MARKER (beg); 3990 CHECK_FIXNUM_COERCE_MARKER (beg);
3991 CHECK_FIXNUM_COERCE_MARKER (end); 3991 CHECK_FIXNUM_COERCE_MARKER (end);
3992 3992
3993 if (XINT (beg) > XINT (end)) 3993 if (XFIXNUM (beg) > XFIXNUM (end))
3994 { 3994 {
3995 Lisp_Object temp; 3995 Lisp_Object temp;
3996 temp = beg; beg = end; end = temp; 3996 temp = beg; beg = end; end = temp;
@@ -4167,7 +4167,7 @@ If SORTED is non-nil, then sort them by decreasing priority. */)
4167 4167
4168 /* Put all the overlays we want in a vector in overlay_vec. 4168 /* Put all the overlays we want in a vector in overlay_vec.
4169 Store the length in len. */ 4169 Store the length in len. */
4170 noverlays = overlays_at (XINT (pos), 1, &overlay_vec, &len, 4170 noverlays = overlays_at (XFIXNUM (pos), 1, &overlay_vec, &len,
4171 NULL, NULL, 0); 4171 NULL, NULL, 0);
4172 4172
4173 if (!NILP (sorted)) 4173 if (!NILP (sorted))
@@ -4211,7 +4211,7 @@ end of the buffer. */)
4211 4211
4212 /* Put all the overlays we want in a vector in overlay_vec. 4212 /* Put all the overlays we want in a vector in overlay_vec.
4213 Store the length in len. */ 4213 Store the length in len. */
4214 noverlays = overlays_in (XINT (beg), XINT (end), 1, &overlay_vec, &len, 4214 noverlays = overlays_in (XFIXNUM (beg), XFIXNUM (end), 1, &overlay_vec, &len,
4215 NULL, NULL); 4215 NULL, NULL);
4216 4216
4217 /* Make a list of them all. */ 4217 /* Make a list of them all. */
@@ -4243,7 +4243,7 @@ the value is (point-max). */)
4243 /* Put all the overlays we want in a vector in overlay_vec. 4243 /* Put all the overlays we want in a vector in overlay_vec.
4244 Store the length in len. 4244 Store the length in len.
4245 endpos gets the position where the next overlay starts. */ 4245 endpos gets the position where the next overlay starts. */
4246 noverlays = overlays_at (XINT (pos), 1, &overlay_vec, &len, 4246 noverlays = overlays_at (XFIXNUM (pos), 1, &overlay_vec, &len,
4247 &endpos, 0, 1); 4247 &endpos, 0, 1);
4248 4248
4249 /* If any of these overlays ends before endpos, 4249 /* If any of these overlays ends before endpos,
@@ -4281,7 +4281,7 @@ the value is (point-min). */)
4281 4281
4282 /* At beginning of buffer, we know the answer; 4282 /* At beginning of buffer, we know the answer;
4283 avoid bug subtracting 1 below. */ 4283 avoid bug subtracting 1 below. */
4284 if (XINT (pos) == BEGV) 4284 if (XFIXNUM (pos) == BEGV)
4285 return pos; 4285 return pos;
4286 4286
4287 len = 10; 4287 len = 10;
@@ -4290,7 +4290,7 @@ the value is (point-min). */)
4290 /* Put all the overlays we want in a vector in overlay_vec. 4290 /* Put all the overlays we want in a vector in overlay_vec.
4291 Store the length in len. 4291 Store the length in len.
4292 prevpos gets the position of the previous change. */ 4292 prevpos gets the position of the previous change. */
4293 overlays_at (XINT (pos), 1, &overlay_vec, &len, 4293 overlays_at (XFIXNUM (pos), 1, &overlay_vec, &len,
4294 0, &prevpos, 1); 4294 0, &prevpos, 1);
4295 4295
4296 xfree (overlay_vec); 4296 xfree (overlay_vec);
@@ -4334,7 +4334,7 @@ for positions far away from POS). */)
4334 ptrdiff_t p; 4334 ptrdiff_t p;
4335 CHECK_FIXNUM_COERCE_MARKER (pos); 4335 CHECK_FIXNUM_COERCE_MARKER (pos);
4336 4336
4337 p = clip_to_bounds (PTRDIFF_MIN, XINT (pos), PTRDIFF_MAX); 4337 p = clip_to_bounds (PTRDIFF_MIN, XFIXNUM (pos), PTRDIFF_MAX);
4338 recenter_overlay_lists (current_buffer, p); 4338 recenter_overlay_lists (current_buffer, p);
4339 return Qnil; 4339 return Qnil;
4340} 4340}
@@ -4442,7 +4442,7 @@ report_overlay_modification (Lisp_Object start, Lisp_Object end, bool after,
4442 Lisp_Object prop, overlay; 4442 Lisp_Object prop, overlay;
4443 struct Lisp_Overlay *tail; 4443 struct Lisp_Overlay *tail;
4444 /* True if this change is an insertion. */ 4444 /* True if this change is an insertion. */
4445 bool insertion = (after ? XFASTINT (arg3) == 0 : EQ (start, end)); 4445 bool insertion = (after ? XFIXNAT (arg3) == 0 : EQ (start, end));
4446 4446
4447 overlay = Qnil; 4447 overlay = Qnil;
4448 tail = NULL; 4448 tail = NULL;
@@ -4470,18 +4470,18 @@ report_overlay_modification (Lisp_Object start, Lisp_Object end, bool after,
4470 ostart = OVERLAY_START (overlay); 4470 ostart = OVERLAY_START (overlay);
4471 oend = OVERLAY_END (overlay); 4471 oend = OVERLAY_END (overlay);
4472 endpos = OVERLAY_POSITION (oend); 4472 endpos = OVERLAY_POSITION (oend);
4473 if (XFASTINT (start) > endpos) 4473 if (XFIXNAT (start) > endpos)
4474 break; 4474 break;
4475 startpos = OVERLAY_POSITION (ostart); 4475 startpos = OVERLAY_POSITION (ostart);
4476 if (insertion && (XFASTINT (start) == startpos 4476 if (insertion && (XFIXNAT (start) == startpos
4477 || XFASTINT (end) == startpos)) 4477 || XFIXNAT (end) == startpos))
4478 { 4478 {
4479 prop = Foverlay_get (overlay, Qinsert_in_front_hooks); 4479 prop = Foverlay_get (overlay, Qinsert_in_front_hooks);
4480 if (!NILP (prop)) 4480 if (!NILP (prop))
4481 add_overlay_mod_hooklist (prop, overlay); 4481 add_overlay_mod_hooklist (prop, overlay);
4482 } 4482 }
4483 if (insertion && (XFASTINT (start) == endpos 4483 if (insertion && (XFIXNAT (start) == endpos
4484 || XFASTINT (end) == endpos)) 4484 || XFIXNAT (end) == endpos))
4485 { 4485 {
4486 prop = Foverlay_get (overlay, Qinsert_behind_hooks); 4486 prop = Foverlay_get (overlay, Qinsert_behind_hooks);
4487 if (!NILP (prop)) 4487 if (!NILP (prop))
@@ -4489,7 +4489,7 @@ report_overlay_modification (Lisp_Object start, Lisp_Object end, bool after,
4489 } 4489 }
4490 /* Test for intersecting intervals. This does the right thing 4490 /* Test for intersecting intervals. This does the right thing
4491 for both insertion and deletion. */ 4491 for both insertion and deletion. */
4492 if (XFASTINT (end) > startpos && XFASTINT (start) < endpos) 4492 if (XFIXNAT (end) > startpos && XFIXNAT (start) < endpos)
4493 { 4493 {
4494 prop = Foverlay_get (overlay, Qmodification_hooks); 4494 prop = Foverlay_get (overlay, Qmodification_hooks);
4495 if (!NILP (prop)) 4495 if (!NILP (prop))
@@ -4508,17 +4508,17 @@ report_overlay_modification (Lisp_Object start, Lisp_Object end, bool after,
4508 oend = OVERLAY_END (overlay); 4508 oend = OVERLAY_END (overlay);
4509 startpos = OVERLAY_POSITION (ostart); 4509 startpos = OVERLAY_POSITION (ostart);
4510 endpos = OVERLAY_POSITION (oend); 4510 endpos = OVERLAY_POSITION (oend);
4511 if (XFASTINT (end) < startpos) 4511 if (XFIXNAT (end) < startpos)
4512 break; 4512 break;
4513 if (insertion && (XFASTINT (start) == startpos 4513 if (insertion && (XFIXNAT (start) == startpos
4514 || XFASTINT (end) == startpos)) 4514 || XFIXNAT (end) == startpos))
4515 { 4515 {
4516 prop = Foverlay_get (overlay, Qinsert_in_front_hooks); 4516 prop = Foverlay_get (overlay, Qinsert_in_front_hooks);
4517 if (!NILP (prop)) 4517 if (!NILP (prop))
4518 add_overlay_mod_hooklist (prop, overlay); 4518 add_overlay_mod_hooklist (prop, overlay);
4519 } 4519 }
4520 if (insertion && (XFASTINT (start) == endpos 4520 if (insertion && (XFIXNAT (start) == endpos
4521 || XFASTINT (end) == endpos)) 4521 || XFIXNAT (end) == endpos))
4522 { 4522 {
4523 prop = Foverlay_get (overlay, Qinsert_behind_hooks); 4523 prop = Foverlay_get (overlay, Qinsert_behind_hooks);
4524 if (!NILP (prop)) 4524 if (!NILP (prop))
@@ -4526,7 +4526,7 @@ report_overlay_modification (Lisp_Object start, Lisp_Object end, bool after,
4526 } 4526 }
4527 /* Test for intersecting intervals. This does the right thing 4527 /* Test for intersecting intervals. This does the right thing
4528 for both insertion and deletion. */ 4528 for both insertion and deletion. */
4529 if (XFASTINT (end) > startpos && XFASTINT (start) < endpos) 4529 if (XFIXNAT (end) > startpos && XFIXNAT (start) < endpos)
4530 { 4530 {
4531 prop = Foverlay_get (overlay, Qmodification_hooks); 4531 prop = Foverlay_get (overlay, Qmodification_hooks);
4532 if (!NILP (prop)) 4532 if (!NILP (prop))