Mercurial > hg > xemacs-beta

comparison src/device.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 248176c74e6b
children 0f2338afbabf
comparison
equal deleted inserted replaced
5580:a0e81357194e 5581:56144c8593a8
803 if (!called_from_delete_console) 803 if (!called_from_delete_console)
804 { 804 {
805 int delete_console = 0; 805 int delete_console = 0;
806 /* If we're deleting the only device on the console, 806 /* If we're deleting the only device on the console,
807 delete the console. */ 807 delete the console. */
808 if ((XINT (Flength (CONSOLE_DEVICE_LIST (c))) == 1) 808 if ((XFIXNUM (Flength (CONSOLE_DEVICE_LIST (c))) == 1)
809 /* if we just created the device, it might not be listed, 809 /* if we just created the device, it might not be listed,
810 or something ... */ 810 or something ... */
811 && !NILP (memq_no_quit (device, CONSOLE_DEVICE_LIST (c)))) 811 && !NILP (memq_no_quit (device, CONSOLE_DEVICE_LIST (c))))
812 delete_console = 1; 812 delete_console = 1;
813 /* Or if there aren't any nonminibuffer frames that would be 813 /* Or if there aren't any nonminibuffer frames that would be
1029 On most systems, changing this value will affect the amount of padding 1029 On most systems, changing this value will affect the amount of padding
1030 and other strategic decisions made during redisplay. 1030 and other strategic decisions made during redisplay.
1031 */ 1031 */
1032 (device, rate)) 1032 (device, rate))
1033 { 1033 {
1034 CHECK_INT (rate); 1034 CHECK_FIXNUM (rate);
1035 1035
1036 DEVICE_BAUD_RATE (decode_device (device)) = XINT (rate); 1036 DEVICE_BAUD_RATE (decode_device (device)) = XFIXNUM (rate);
1037 1037
1038 return rate; 1038 return rate;
1039 } 1039 }
1040 1040
1041 DEFUN ("device-baud-rate", Fdevice_baud_rate, 0, 1, 0, /* 1041 DEFUN ("device-baud-rate", Fdevice_baud_rate, 0, 1, 0, /*
1042 Return the output baud rate of DEVICE. 1042 Return the output baud rate of DEVICE.
1043 */ 1043 */
1044 (device)) 1044 (device))
1045 { 1045 {
1046 return make_int (DEVICE_BAUD_RATE (decode_device (device))); 1046 return make_fixnum (DEVICE_BAUD_RATE (decode_device (device)));
1047 } 1047 }
1048 1048
1049 DEFUN ("device-printer-p", Fdevice_printer_p, 0, 1, 0, /* 1049 DEFUN ("device-printer-p", Fdevice_printer_p, 0, 1, 0, /*
1050 Return t if DEVICE is a printer, nil if it is a display. DEVICE defaults 1050 Return t if DEVICE is a printer, nil if it is a display. DEVICE defaults
1051 to selected device if omitted, and must be live if specified. 1051 to selected device if omitted, and must be live if specified.