Mercurial > hg > xemacs-beta
diff src/file-coding.c @ 5581:56144c8593a8
Mechanically change INT to FIXNUM in our sources.
src/ChangeLog addition:
2011-10-09 Aidan Kehoe <kehoea@parhasard.net>
[...]
Mechanically change INT (where it refers to non-bignum Lisp
integers) to FIXNUM in our sources. Done for the following
functions, enums, and macros: Lisp_Type_Int_Even,
Lisp_Type_Int_Odd, INT_GCBITS, INT_VALBITS, make_int(), INTP(),
XINT(), CHECK_INT(), XREALINT(), INT_PLUS(), INT_MINUS(),
EMACS_INT_MAX (to MOST_POSITIVE_FIXNUM), EMACS_INT_MIN (to
MOST_NEGATIVE_FIXNUM), NUMBER_FITS_IN_AN_EMACS_INT() to
NUMBER_FITS_IN_A_FIXNUM(), XFLOATINT, XCHAR_OR_INT, INT_OR_FLOAT.
The EMACS_INT typedef was not changed, it does not describe
non-bignum Lisp integers.
Script that did the change available in
http://mid.gmane.org/20067.17650.181273.12014@parhasard.net .
modules/ChangeLog addition:
2011-10-09 Aidan Kehoe <kehoea@parhasard.net>
[...]
Mechanically change INT to FIXNUM, where the usage describes non-bignum
Lisp integers. See the src/ChangeLog entry for more details.
man/ChangeLog addition:
2011-10-09 Aidan Kehoe <kehoea@parhasard.net>
* internals/internals.texi (How Lisp Objects Are Represented in C):
* internals/internals.texi (Integers and Characters):
Mechanically change INT to FIXNUM, where the usage describes non-bignum
Lisp integers.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sun, 09 Oct 2011 09:51:57 +0100 |
| parents | 4dee0387b9de |
| children | dae33b5feffe |
line wrap: on
line diff
--- a/src/file-coding.c Sat Oct 08 12:26:09 2011 +0100 +++ b/src/file-coding.c Sun Oct 09 09:51:57 2011 +0100 @@ -467,7 +467,7 @@ allocated up to this point is safe_chars, and that's reachable from its entry in Vdefault_query_coding_region_chartab_cache */ - call3 (Qquery_coding_clear_highlights, make_int (pos), make_int (end), + call3 (Qquery_coding_clear_highlights, make_fixnum (pos), make_fixnum (end), wrap_buffer (buf)); } @@ -521,8 +521,8 @@ fail_range_end = pos; - Fput_range_table (make_int (fail_range_start), - make_int (fail_range_end), + Fput_range_table (make_fixnum (fail_range_start), + make_fixnum (fail_range_end), Qunencodable, result); previous_failed_reason = query_coding_succeeded; @@ -530,12 +530,12 @@ if (flags & QUERY_METHOD_HIGHLIGHT) { Lisp_Object extent - = Fmake_extent (make_int (fail_range_start), - make_int (fail_range_end), + = Fmake_extent (make_fixnum (fail_range_start), + make_fixnum (fail_range_end), wrap_buffer (buf)); Fset_extent_priority - (extent, make_int (2 + mouse_highlight_priority)); + (extent, make_fixnum (2 + mouse_highlight_priority)); Fset_extent_face (extent, Qquery_coding_warning_face); } } @@ -2299,7 +2299,7 @@ if (!NILP (auto_outstream)) Lstream_delete (XLSTREAM (auto_outstream)); Lstream_delete (XLSTREAM (lb_outstream)); - return make_int (retlen); + return make_fixnum (retlen); } } @@ -4293,7 +4293,7 @@ if (data->level == -1) write_ascstring (printcharfun, "default"); else - print_internal (make_int (data->level), printcharfun, 0); + print_internal (make_fixnum (data->level), printcharfun, 0); write_ascstring (printcharfun, ")"); } @@ -4308,8 +4308,8 @@ data->level = -1; else { - check_integer_range (value, Qzero, make_int (9)); - data->level = XINT (value); + check_integer_range (value, Qzero, make_fixnum (9)); + data->level = XFIXNUM (value); } } else @@ -4327,7 +4327,7 @@ { if (data->level == -1) return Qdefault; - return make_int (data->level); + return make_fixnum (data->level); } return Qunbound;