Mercurial > hg > xemacs-beta

comparison src/casefiddle.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
307 casify_word (enum case_action flag, Lisp_Object arg, Lisp_Object buffer) 307 casify_word (enum case_action flag, Lisp_Object arg, Lisp_Object buffer)
308 { 308 {
309 Charbpos farend; 309 Charbpos farend;
310 struct buffer *buf = decode_buffer (buffer, 1); 310 struct buffer *buf = decode_buffer (buffer, 1);
311 311
312 CHECK_INT (arg); 312 CHECK_FIXNUM (arg);
313 313
314 farend = scan_words (buf, BUF_PT (buf), XINT (arg)); 314 farend = scan_words (buf, BUF_PT (buf), XFIXNUM (arg));
315 if (!farend) 315 if (!farend)
316 farend = XINT (arg) > 0 ? BUF_ZV (buf) : BUF_BEGV (buf); 316 farend = XFIXNUM (arg) > 0 ? BUF_ZV (buf) : BUF_BEGV (buf);
317 317
318 casify_region_internal (flag, make_int (BUF_PT (buf)), make_int (farend), buf); 318 casify_region_internal (flag, make_fixnum (BUF_PT (buf)), make_fixnum (farend), buf);
319 BUF_SET_PT (buf, max (BUF_PT (buf), farend)); 319 BUF_SET_PT (buf, max (BUF_PT (buf), farend));
320 return Qnil; 320 return Qnil;
321 } 321 }
322 322
323 DEFUN ("upcase-word", Fupcase_word, 1, 2, "p", /* 323 DEFUN ("upcase-word", Fupcase_word, 1, 2, "p", /*