Mercurial > hg > xemacs-beta

comparison src/fontcolor.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 b0d712bbc2a6
comparison
equal deleted inserted replaced
5580:a0e81357194e 5581:56144c8593a8
450 the baseline. 450 the baseline.
451 */ 451 */
452 (font_instance)) 452 (font_instance))
453 { 453 {
454 CHECK_FONT_INSTANCE (font_instance); 454 CHECK_FONT_INSTANCE (font_instance);
455 return make_int (XFONT_INSTANCE (font_instance)->ascent); 455 return make_fixnum (XFONT_INSTANCE (font_instance)->ascent);
456 } 456 }
457 457
458 DEFUN ("font-instance-descent", Ffont_instance_descent, 1, 1, 0, /* 458 DEFUN ("font-instance-descent", Ffont_instance_descent, 1, 1, 0, /*
459 Return the descent in pixels of FONT-INSTANCE. 459 Return the descent in pixels of FONT-INSTANCE.
460 The returned value is the maximum descent for all characters in the font, 460 The returned value is the maximum descent for all characters in the font,
463 descent are lowercase p and lowercase g.) 463 descent are lowercase p and lowercase g.)
464 */ 464 */
465 (font_instance)) 465 (font_instance))
466 { 466 {
467 CHECK_FONT_INSTANCE (font_instance); 467 CHECK_FONT_INSTANCE (font_instance);
468 return make_int (XFONT_INSTANCE (font_instance)->descent); 468 return make_fixnum (XFONT_INSTANCE (font_instance)->descent);
469 } 469 }
470 470
471 DEFUN ("font-instance-width", Ffont_instance_width, 1, 1, 0, /* 471 DEFUN ("font-instance-width", Ffont_instance_width, 1, 1, 0, /*
472 Return the width in pixels of FONT-INSTANCE. 472 Return the width in pixels of FONT-INSTANCE.
473 The returned value is the average width for all characters in the font. 473 The returned value is the average width for all characters in the font.
474 */ 474 */
475 (font_instance)) 475 (font_instance))
476 { 476 {
477 CHECK_FONT_INSTANCE (font_instance); 477 CHECK_FONT_INSTANCE (font_instance);
478 return make_int (XFONT_INSTANCE (font_instance)->width); 478 return make_fixnum (XFONT_INSTANCE (font_instance)->width);
479 } 479 }
480 480
481 DEFUN ("font-instance-proportional-p", Ffont_instance_proportional_p, 1, 1, 0, /* 481 DEFUN ("font-instance-proportional-p", Ffont_instance_proportional_p, 1, 1, 0, /*
482 Return whether FONT-INSTANCE is proportional. 482 Return whether FONT-INSTANCE is proportional.
483 This means that different characters in the font have different widths. 483 This means that different characters in the font have different widths.