Mercurial > hg > xemacs-beta

comparison src/font-lock.c @ 5581:56144c8593a8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 308d34e9f07d
children
comparison
equal deleted inserted replaced
5580:a0e81357194e 5581:56144c8593a8
263 { 263 {
264 Lisp_Object retval = scan_lists (buf, pt, 1, 0, 0, 1); 264 Lisp_Object retval = scan_lists (buf, pt, 1, 0, 0, 1);
265 if (NILP (retval)) 265 if (NILP (retval))
266 return BUF_ZV (buf); 266 return BUF_ZV (buf);
267 else 267 else
268 return XINT (retval); 268 return XFIXNUM (retval);
269 } 269 }
270 270
271 /* Set up context_cache for attempting to determine the syntactic context 271 /* Set up context_cache for attempting to determine the syntactic context
272 in buffer BUF at point PT. */ 272 in buffer BUF at point PT. */
273 273
739 (buffer)) 739 (buffer))
740 { 740 {
741 /* This function can GC */ 741 /* This function can GC */
742 struct buffer *buf = decode_buffer (buffer, 0); 742 struct buffer *buf = decode_buffer (buffer, 0);
743 find_context (buf, BUF_PT (buf)); 743 find_context (buf, BUF_PT (buf));
744 return make_int (context_cache.depth); 744 return make_fixnum (context_cache.depth);
745 } 745 }
746 746
747 747
748 DEFUN ("syntactically-sectionize", Fsyntactically_sectionize, 3, 4, 0, /* 748 DEFUN ("syntactically-sectionize", Fsyntactically_sectionize, 3, 4, 0, /*
749 Call FUNCTION for each contiguous syntactic context in the region. 749 Call FUNCTION for each contiguous syntactic context in the region.
817 817
818 if (estart == eend) 818 if (estart == eend)
819 continue; 819 continue;
820 /* Make sure not to pass in values that are outside the 820 /* Make sure not to pass in values that are outside the
821 actual bounds of this function. */ 821 actual bounds of this function. */
822 call4_in_buffer (buf, function, make_int (max (s, estart)), 822 call4_in_buffer (buf, function, make_fixnum (max (s, estart)),
823 make_int (eend == e ? e : eend - 1), 823 make_fixnum (eend == e ? e : eend - 1),
824 context_to_symbol (this_context), 824 context_to_symbol (this_context),
825 make_int (edepth)); 825 make_fixnum (edepth));
826 } 826 }
827 DONE_LABEL: 827 DONE_LABEL:
828 UNGCPRO; 828 UNGCPRO;
829 return Qnil; 829 return Qnil;
830 } 830 }