Mercurial > hg > xemacs-beta

comparison src/glyphs-eimage.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 2df2d9171f20
children
comparison
equal deleted inserted replaced
5580:a0e81357194e 5581:56144c8593a8
786 786
787 /* Too short a timeout will crucify us performance-wise. */ 787 /* Too short a timeout will crucify us performance-wise. */
788 tid = add_glyph_animated_timeout (timeout > 10 ? timeout : 10, image_instance); 788 tid = add_glyph_animated_timeout (timeout > 10 ? timeout : 10, image_instance);
789 789
790 if (!NILP (tid)) 790 if (!NILP (tid))
791 IMAGE_INSTANCE_PIXMAP_TIMEOUT (ii) = XINT (tid); 791 IMAGE_INSTANCE_PIXMAP_TIMEOUT (ii) = XFIXNUM (tid);
792 } 792 }
793 793
794 unbind_to (speccount); 794 unbind_to (speccount);
795 } 795 }
796 796
1029 { 1029 {
1030 Lisp_Color_Instance *c = XCOLOR_INSTANCE (bkgd); 1030 Lisp_Color_Instance *c = XCOLOR_INSTANCE (bkgd);
1031 Lisp_Object rgb = MAYBE_LISP_DEVMETH (XDEVICE (c->device), 1031 Lisp_Object rgb = MAYBE_LISP_DEVMETH (XDEVICE (c->device),
1032 color_instance_rgb_components, 1032 color_instance_rgb_components,
1033 (c)); 1033 (c));
1034 #define GETCOLOR(col) my_background.col = (unsigned short) XINT (XCAR (rgb)) 1034 #define GETCOLOR(col) my_background.col = (unsigned short) XFIXNUM (XCAR (rgb))
1035 GETCOLOR(red); rgb = XCDR (rgb); 1035 GETCOLOR(red); rgb = XCDR (rgb);
1036 GETCOLOR(green); rgb = XCDR (rgb); 1036 GETCOLOR(green); rgb = XCDR (rgb);
1037 GETCOLOR(blue); 1037 GETCOLOR(blue);
1038 #undef GETCOLOR 1038 #undef GETCOLOR
1039 } 1039 }