diff options
| author | Tom Tromey | 2018-08-07 18:08:53 -0600 |
|---|---|---|
| committer | Tom Tromey | 2018-08-07 18:08:53 -0600 |
| commit | d1ec3a0a8e4d7d56ebc1e4fa743130b9974ac6a8 (patch) | |
| tree | 04c920acf142f686d3cac11080b17a2fb0dfc9af /src/buffer.c | |
| parent | 68ebff23f7057090da260830500cb278f7b886a5 (diff) | |
| download | emacs-d1ec3a0a8e4d7d56ebc1e4fa743130b9974ac6a8.tar.gz emacs-d1ec3a0a8e4d7d56ebc1e4fa743130b9974ac6a8.zip | |
More macro renamings for bignum
* src/alloc.c, src/bidi.c, src/buffer.c, src/buffer.h, src/bytecode.c,
src/callint.c, src/callproc.c, src/casefiddle.c, src/casetab.c,
src/category.c, src/ccl.c, src/character.c, src/character.h,
src/charset.c, src/charset.h, src/chartab.c, src/cmds.c, src/coding.c,
src/composite.c, src/composite.h, src/data.c, src/dbusbind.c,
src/decompress.c, src/dired.c, src/dispextern.h, src/dispnew.c,
src/disptab.h, src/doc.c, src/dosfns.c, src/editfns.c,
src/emacs-module.c, src/emacs.c, src/eval.c, src/fileio.c,
src/floatfns.c, src/fns.c, src/font.c, src/font.h, src/fontset.c,
src/frame.c, src/frame.h, src/fringe.c, src/ftcrfont.c, src/ftfont.c,
src/gfilenotify.c, src/gnutls.c, src/gtkutil.c, src/image.c,
src/indent.c, src/insdel.c, src/intervals.c, src/json.c,
src/keyboard.c, src/keymap.c, src/kqueue.c, src/lcms.c, src/lisp.h,
src/lread.c, src/macros.c, src/marker.c, src/menu.c, src/minibuf.c,
src/msdos.c, src/print.c, src/process.c, src/profiler.c, src/search.c,
src/sound.c, src/syntax.c, src/syntax.h, src/sysdep.c, src/term.c,
src/termhooks.h, src/textprop.c, src/undo.c, src/w32.c,
src/w32console.c, src/w32fns.c, src/w32font.c, src/w32inevt.c,
src/w32proc.c, src/w32select.c, src/w32term.c, src/w32term.h,
src/w32uniscribe.c, src/window.c, src/xdisp.c, src/xfaces.c,
src/xfns.c, src/xfont.c, src/xftfont.c, src/xmenu.c, src/xml.c,
src/xrdb.c, src/xselect.c, src/xsettings.c, src/xterm.c, src/xwidget.c
Rename XINT->XFIXNUM, XFASTINT->XFIXNAT, XUINT->XUFIXNUM.
Diffstat (limited to 'src/buffer.c')
| -rw-r--r-- | src/buffer.c | 58 |
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)) |