Mercurial > hg > xemacs-beta

comparison src/event-xlike-inc.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
170 if (keysym >= FIRST_KNOWN_##map \ 170 if (keysym >= FIRST_KNOWN_##map \
171 && (keysym < (FIRST_KNOWN_##map + countof (map))) \ 171 && (keysym < (FIRST_KNOWN_##map + countof (map))) \
172 && map[keysym - FIRST_KNOWN_##map ]) do \ 172 && map[keysym - FIRST_KNOWN_##map ]) do \
173 { \ 173 { \
174 keysym -= FIRST_KNOWN_##map ; \ 174 keysym -= FIRST_KNOWN_##map ; \
175 return Funicode_to_char (make_int (map[keysym]), Qnil); \ 175 return Funicode_to_char (make_fixnum (map[keysym]), Qnil); \
176 } while (0) 176 } while (0)
177 177
178 /* Maps to Unicode for X11 KeySyms, where we don't have a direct internal 178 /* Maps to Unicode for X11 KeySyms, where we don't have a direct internal
179 mapping based on a Mule character set, or whatever. Taken from Markus 179 mapping based on a Mule character set, or whatever. Taken from Markus
180 Kuhn's X11.keysyms--if you're ever comparing with that file, note the 180 Kuhn's X11.keysyms--if you're ever comparing with that file, note the
601 the range #x100-#x10FFFF; actual implementations can have the Latin 1 601 the range #x100-#x10FFFF; actual implementations can have the Latin 1
602 code points do the same thing with keysyms 602 code points do the same thing with keysyms
603 #x01000000-#x01000100. */ 603 #x01000000-#x01000100. */
604 604
605 if (keysym >= 0x01000000 && keysym <= 0x0110FFFF) 605 if (keysym >= 0x01000000 && keysym <= 0x0110FFFF)
606 return Funicode_to_char (make_int (keysym & 0xffffff), Qnil); 606 return Funicode_to_char (make_fixnum (keysym & 0xffffff), Qnil);
607 607
608 if ((keysym & 0xff) < 0xa0) 608 if ((keysym & 0xff) < 0xa0)
609 return Qnil; 609 return Qnil;
610 610
611 switch (keysym >> 8) 611 switch (keysym >> 8)
695 code = keysym & 0x7f; 695 code = keysym & 0x7f;
696 break; 696 break;
697 case 32: /* Currency. The lower sixteen bits of these keysyms happily 697 case 32: /* Currency. The lower sixteen bits of these keysyms happily
698 correspond exactly to the Unicode code points of the 698 correspond exactly to the Unicode code points of the
699 associated characters */ 699 associated characters */
700 return Funicode_to_char (make_int (keysym & 0xffff), Qnil); 700 return Funicode_to_char (make_fixnum (keysym & 0xffff), Qnil);
701 break; 701 break;
702 default: 702 default:
703 break; 703 break;
704 } 704 }
705 705