diff options
| author | Tom Tromey | 2018-08-07 18:08:53 -0600 |
|---|---|---|
| committer | Tom Tromey | 2018-08-07 18:08:53 -0600 |
| commit | d1ec3a0a8e4d7d56ebc1e4fa743130b9974ac6a8 (patch) | |
| tree | 04c920acf142f686d3cac11080b17a2fb0dfc9af /src/fontset.c | |
| parent | 68ebff23f7057090da260830500cb278f7b886a5 (diff) | |
| download | emacs-d1ec3a0a8e4d7d56ebc1e4fa743130b9974ac6a8.tar.gz emacs-d1ec3a0a8e4d7d56ebc1e4fa743130b9974ac6a8.zip | |
More macro renamings for bignum
* src/alloc.c, src/bidi.c, src/buffer.c, src/buffer.h, src/bytecode.c,
src/callint.c, src/callproc.c, src/casefiddle.c, src/casetab.c,
src/category.c, src/ccl.c, src/character.c, src/character.h,
src/charset.c, src/charset.h, src/chartab.c, src/cmds.c, src/coding.c,
src/composite.c, src/composite.h, src/data.c, src/dbusbind.c,
src/decompress.c, src/dired.c, src/dispextern.h, src/dispnew.c,
src/disptab.h, src/doc.c, src/dosfns.c, src/editfns.c,
src/emacs-module.c, src/emacs.c, src/eval.c, src/fileio.c,
src/floatfns.c, src/fns.c, src/font.c, src/font.h, src/fontset.c,
src/frame.c, src/frame.h, src/fringe.c, src/ftcrfont.c, src/ftfont.c,
src/gfilenotify.c, src/gnutls.c, src/gtkutil.c, src/image.c,
src/indent.c, src/insdel.c, src/intervals.c, src/json.c,
src/keyboard.c, src/keymap.c, src/kqueue.c, src/lcms.c, src/lisp.h,
src/lread.c, src/macros.c, src/marker.c, src/menu.c, src/minibuf.c,
src/msdos.c, src/print.c, src/process.c, src/profiler.c, src/search.c,
src/sound.c, src/syntax.c, src/syntax.h, src/sysdep.c, src/term.c,
src/termhooks.h, src/textprop.c, src/undo.c, src/w32.c,
src/w32console.c, src/w32fns.c, src/w32font.c, src/w32inevt.c,
src/w32proc.c, src/w32select.c, src/w32term.c, src/w32term.h,
src/w32uniscribe.c, src/window.c, src/xdisp.c, src/xfaces.c,
src/xfns.c, src/xfont.c, src/xftfont.c, src/xmenu.c, src/xml.c,
src/xrdb.c, src/xselect.c, src/xsettings.c, src/xterm.c, src/xwidget.c
Rename XINT->XFIXNUM, XFASTINT->XFIXNAT, XUINT->XUFIXNUM.
Diffstat (limited to 'src/fontset.c')
| -rw-r--r-- | src/fontset.c | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/src/fontset.c b/src/fontset.c index d4a2e4ea5b8..0dbc54efd08 100644 --- a/src/fontset.c +++ b/src/fontset.c | |||
| @@ -276,7 +276,7 @@ set_fontset_fallback (Lisp_Object fontset, Lisp_Object fallback) | |||
| 276 | the order of listing by font backends, the higher bits represents | 276 | the order of listing by font backends, the higher bits represents |
| 277 | the order given by charset priority list. The smaller value is | 277 | the order given by charset priority list. The smaller value is |
| 278 | preferable. */ | 278 | preferable. */ |
| 279 | #define RFONT_DEF_SCORE(rfont_def) XINT (AREF (rfont_def, 3)) | 279 | #define RFONT_DEF_SCORE(rfont_def) XFIXNUM (AREF (rfont_def, 3)) |
| 280 | #define RFONT_DEF_SET_SCORE(rfont_def, score) \ | 280 | #define RFONT_DEF_SET_SCORE(rfont_def, score) \ |
| 281 | ASET ((rfont_def), 3, make_fixnum (score)) | 281 | ASET ((rfont_def), 3, make_fixnum (score)) |
| 282 | #define RFONT_DEF_NEW(rfont_def, font_def) \ | 282 | #define RFONT_DEF_NEW(rfont_def, font_def) \ |
| @@ -344,8 +344,8 @@ fontset_add (Lisp_Object fontset, Lisp_Object range, Lisp_Object elt, Lisp_Objec | |||
| 344 | 344 | ||
| 345 | if (CONSP (range)) | 345 | if (CONSP (range)) |
| 346 | { | 346 | { |
| 347 | int from = XINT (XCAR (range)); | 347 | int from = XFIXNUM (XCAR (range)); |
| 348 | int to = XINT (XCDR (range)); | 348 | int to = XFIXNUM (XCDR (range)); |
| 349 | int from1, to1; | 349 | int from1, to1; |
| 350 | 350 | ||
| 351 | do { | 351 | do { |
| @@ -561,7 +561,7 @@ fontset_find_font (Lisp_Object fontset, int c, struct face *face, | |||
| 561 | 561 | ||
| 562 | if (ASIZE (vec) > 1) | 562 | if (ASIZE (vec) > 1) |
| 563 | { | 563 | { |
| 564 | if (XINT (XCAR (font_group)) != charset_ordered_list_tick) | 564 | if (XFIXNUM (XCAR (font_group)) != charset_ordered_list_tick) |
| 565 | /* We have just created the font-group, | 565 | /* We have just created the font-group, |
| 566 | or the charset priorities were changed. */ | 566 | or the charset priorities were changed. */ |
| 567 | reorder_font_vector (font_group, face->ascii_face->font); | 567 | reorder_font_vector (font_group, face->ascii_face->font); |
| @@ -577,7 +577,7 @@ fontset_find_font (Lisp_Object fontset, int c, struct face *face, | |||
| 577 | break; | 577 | break; |
| 578 | repertory = FONT_DEF_REPERTORY (RFONT_DEF_FONT_DEF (rfont_def)); | 578 | repertory = FONT_DEF_REPERTORY (RFONT_DEF_FONT_DEF (rfont_def)); |
| 579 | 579 | ||
| 580 | if (XINT (repertory) == charset_id) | 580 | if (XFIXNUM (repertory) == charset_id) |
| 581 | { | 581 | { |
| 582 | charset_matched = i; | 582 | charset_matched = i; |
| 583 | break; | 583 | break; |
| @@ -634,7 +634,7 @@ fontset_find_font (Lisp_Object fontset, int c, struct face *face, | |||
| 634 | return Qt; | 634 | return Qt; |
| 635 | } | 635 | } |
| 636 | if (FIXNUMP (RFONT_DEF_FACE (rfont_def)) | 636 | if (FIXNUMP (RFONT_DEF_FACE (rfont_def)) |
| 637 | && XINT (RFONT_DEF_FACE (rfont_def)) < 0) | 637 | && XFIXNUM (RFONT_DEF_FACE (rfont_def)) < 0) |
| 638 | /* We couldn't open this font last time. */ | 638 | /* We couldn't open this font last time. */ |
| 639 | continue; | 639 | continue; |
| 640 | 640 | ||
| @@ -892,7 +892,7 @@ free_face_fontset (struct frame *f, struct face *face) | |||
| 892 | next_fontset_id = face->fontset; | 892 | next_fontset_id = face->fontset; |
| 893 | if (! NILP (FONTSET_DEFAULT (fontset))) | 893 | if (! NILP (FONTSET_DEFAULT (fontset))) |
| 894 | { | 894 | { |
| 895 | int id = XINT (FONTSET_ID (FONTSET_DEFAULT (fontset))); | 895 | int id = XFIXNUM (FONTSET_ID (FONTSET_DEFAULT (fontset))); |
| 896 | 896 | ||
| 897 | fontset = AREF (Vfontset_table, id); | 897 | fontset = AREF (Vfontset_table, id); |
| 898 | eassert (!NILP (fontset) && ! BASE_FONTSET_P (fontset)); | 898 | eassert (!NILP (fontset) && ! BASE_FONTSET_P (fontset)); |
| @@ -981,7 +981,7 @@ face_for_char (struct frame *f, struct face *face, int c, | |||
| 981 | val = assq_no_quit (charset, Vfont_encoding_charset_alist); | 981 | val = assq_no_quit (charset, Vfont_encoding_charset_alist); |
| 982 | if (CONSP (val) && CHARSETP (XCDR (val))) | 982 | if (CONSP (val) && CHARSETP (XCDR (val))) |
| 983 | charset = XCDR (val); | 983 | charset = XCDR (val); |
| 984 | id = XINT (CHARSET_SYMBOL_ID (charset)); | 984 | id = XFIXNUM (CHARSET_SYMBOL_ID (charset)); |
| 985 | } | 985 | } |
| 986 | else | 986 | else |
| 987 | id = -1; | 987 | id = -1; |
| @@ -991,7 +991,7 @@ face_for_char (struct frame *f, struct face *face, int c, | |||
| 991 | if (VECTORP (rfont_def)) | 991 | if (VECTORP (rfont_def)) |
| 992 | { | 992 | { |
| 993 | if (FIXNUMP (RFONT_DEF_FACE (rfont_def))) | 993 | if (FIXNUMP (RFONT_DEF_FACE (rfont_def))) |
| 994 | face_id = XINT (RFONT_DEF_FACE (rfont_def)); | 994 | face_id = XFIXNUM (RFONT_DEF_FACE (rfont_def)); |
| 995 | else | 995 | else |
| 996 | { | 996 | { |
| 997 | Lisp_Object font_object; | 997 | Lisp_Object font_object; |
| @@ -1004,7 +1004,7 @@ face_for_char (struct frame *f, struct face *face, int c, | |||
| 1004 | else | 1004 | else |
| 1005 | { | 1005 | { |
| 1006 | if (FIXNUMP (FONTSET_NOFONT_FACE (fontset))) | 1006 | if (FIXNUMP (FONTSET_NOFONT_FACE (fontset))) |
| 1007 | face_id = XINT (FONTSET_NOFONT_FACE (fontset)); | 1007 | face_id = XFIXNUM (FONTSET_NOFONT_FACE (fontset)); |
| 1008 | else | 1008 | else |
| 1009 | { | 1009 | { |
| 1010 | face_id = face_for_font (f, Qnil, face); | 1010 | face_id = face_for_font (f, Qnil, face); |
| @@ -1048,7 +1048,7 @@ font_for_char (struct face *face, int c, ptrdiff_t pos, Lisp_Object object) | |||
| 1048 | val = assq_no_quit (charset, Vfont_encoding_charset_alist); | 1048 | val = assq_no_quit (charset, Vfont_encoding_charset_alist); |
| 1049 | if (CONSP (val) && CHARSETP (XCDR (val))) | 1049 | if (CONSP (val) && CHARSETP (XCDR (val))) |
| 1050 | charset = XCDR (val); | 1050 | charset = XCDR (val); |
| 1051 | id = XINT (CHARSET_SYMBOL_ID (charset)); | 1051 | id = XFIXNUM (CHARSET_SYMBOL_ID (charset)); |
| 1052 | } | 1052 | } |
| 1053 | else | 1053 | else |
| 1054 | id = -1; | 1054 | id = -1; |
| @@ -1083,7 +1083,7 @@ make_fontset_for_ascii_face (struct frame *f, int base_fontset_id, struct face * | |||
| 1083 | base_fontset = Vdefault_fontset; | 1083 | base_fontset = Vdefault_fontset; |
| 1084 | 1084 | ||
| 1085 | fontset = make_fontset (frame, Qnil, base_fontset); | 1085 | fontset = make_fontset (frame, Qnil, base_fontset); |
| 1086 | return XINT (FONTSET_ID (fontset)); | 1086 | return XFIXNUM (FONTSET_ID (fontset)); |
| 1087 | } | 1087 | } |
| 1088 | 1088 | ||
| 1089 | 1089 | ||
| @@ -1306,7 +1306,7 @@ free_realized_fontsets (Lisp_Object base) | |||
| 1306 | tail = XCDR (tail)) | 1306 | tail = XCDR (tail)) |
| 1307 | { | 1307 | { |
| 1308 | struct frame *f = XFRAME (FONTSET_FRAME (this)); | 1308 | struct frame *f = XFRAME (FONTSET_FRAME (this)); |
| 1309 | int face_id = XINT (XCDR (XCAR (tail))); | 1309 | int face_id = XFIXNUM (XCDR (XCAR (tail))); |
| 1310 | struct face *face = FACE_FROM_ID_OR_NULL (f, face_id); | 1310 | struct face *face = FACE_FROM_ID_OR_NULL (f, face_id); |
| 1311 | 1311 | ||
| 1312 | /* Face THIS itself is also freed by the following call. */ | 1312 | /* Face THIS itself is also freed by the following call. */ |
| @@ -1399,7 +1399,7 @@ static void | |||
| 1399 | set_fontset_font (Lisp_Object arg, Lisp_Object range) | 1399 | set_fontset_font (Lisp_Object arg, Lisp_Object range) |
| 1400 | { | 1400 | { |
| 1401 | Lisp_Object fontset, font_def, add, ascii, script_range_list; | 1401 | Lisp_Object fontset, font_def, add, ascii, script_range_list; |
| 1402 | int from = XINT (XCAR (range)), to = XINT (XCDR (range)); | 1402 | int from = XFIXNUM (XCAR (range)), to = XFIXNUM (XCDR (range)); |
| 1403 | 1403 | ||
| 1404 | fontset = AREF (arg, 0); | 1404 | fontset = AREF (arg, 0); |
| 1405 | font_def = AREF (arg, 1); | 1405 | font_def = AREF (arg, 1); |
| @@ -1415,8 +1415,8 @@ set_fontset_font (Lisp_Object arg, Lisp_Object range) | |||
| 1415 | range = Fcons (make_fixnum (0x80), XCDR (range)); | 1415 | range = Fcons (make_fixnum (0x80), XCDR (range)); |
| 1416 | } | 1416 | } |
| 1417 | 1417 | ||
| 1418 | #define SCRIPT_FROM XINT (XCAR (XCAR (script_range_list))) | 1418 | #define SCRIPT_FROM XFIXNUM (XCAR (XCAR (script_range_list))) |
| 1419 | #define SCRIPT_TO XINT (XCDR (XCAR (script_range_list))) | 1419 | #define SCRIPT_TO XFIXNUM (XCDR (XCAR (script_range_list))) |
| 1420 | #define POP_SCRIPT_RANGE() script_range_list = XCDR (script_range_list) | 1420 | #define POP_SCRIPT_RANGE() script_range_list = XCDR (script_range_list) |
| 1421 | 1421 | ||
| 1422 | for (; CONSP (script_range_list) && SCRIPT_TO < from; POP_SCRIPT_RANGE ()) | 1422 | for (; CONSP (script_range_list) && SCRIPT_TO < from; POP_SCRIPT_RANGE ()) |
| @@ -1544,7 +1544,7 @@ appended. By default, FONT-SPEC overrides the previous settings. */) | |||
| 1544 | 1544 | ||
| 1545 | if (CHARACTERP (target)) | 1545 | if (CHARACTERP (target)) |
| 1546 | { | 1546 | { |
| 1547 | if (XFASTINT (target) < 0x80) | 1547 | if (XFIXNAT (target) < 0x80) |
| 1548 | error ("Can't set a font for partial ASCII range"); | 1548 | error ("Can't set a font for partial ASCII range"); |
| 1549 | range_list = list1 (Fcons (target, target)); | 1549 | range_list = list1 (Fcons (target, target)); |
| 1550 | } | 1550 | } |
| @@ -1556,9 +1556,9 @@ appended. By default, FONT-SPEC overrides the previous settings. */) | |||
| 1556 | to = Fcdr (target); | 1556 | to = Fcdr (target); |
| 1557 | CHECK_CHARACTER (from); | 1557 | CHECK_CHARACTER (from); |
| 1558 | CHECK_CHARACTER (to); | 1558 | CHECK_CHARACTER (to); |
| 1559 | if (XFASTINT (from) < 0x80) | 1559 | if (XFIXNAT (from) < 0x80) |
| 1560 | { | 1560 | { |
| 1561 | if (XFASTINT (from) != 0 || XFASTINT (to) < 0x7F) | 1561 | if (XFIXNAT (from) != 0 || XFIXNAT (to) < 0x7F) |
| 1562 | error ("Can't set a font for partial ASCII range"); | 1562 | error ("Can't set a font for partial ASCII range"); |
| 1563 | ascii_changed = 1; | 1563 | ascii_changed = 1; |
| 1564 | } | 1564 | } |
| @@ -1629,7 +1629,7 @@ appended. By default, FONT-SPEC overrides the previous settings. */) | |||
| 1629 | if (ascii_changed) | 1629 | if (ascii_changed) |
| 1630 | { | 1630 | { |
| 1631 | Lisp_Object tail, fr; | 1631 | Lisp_Object tail, fr; |
| 1632 | int fontset_id = XINT (FONTSET_ID (fontset)); | 1632 | int fontset_id = XFIXNUM (FONTSET_ID (fontset)); |
| 1633 | 1633 | ||
| 1634 | set_fontset_ascii (fontset, fontname); | 1634 | set_fontset_ascii (fontset, fontname); |
| 1635 | name = FONTSET_NAME (fontset); | 1635 | name = FONTSET_NAME (fontset); |
| @@ -1762,7 +1762,7 @@ fontset_from_font (Lisp_Object font_object) | |||
| 1762 | 1762 | ||
| 1763 | val = assoc_no_quit (font_spec, auto_fontset_alist); | 1763 | val = assoc_no_quit (font_spec, auto_fontset_alist); |
| 1764 | if (CONSP (val)) | 1764 | if (CONSP (val)) |
| 1765 | return XINT (FONTSET_ID (XCDR (val))); | 1765 | return XFIXNUM (FONTSET_ID (XCDR (val))); |
| 1766 | if (num_auto_fontsets++ == 0) | 1766 | if (num_auto_fontsets++ == 0) |
| 1767 | alias = intern ("fontset-startup"); | 1767 | alias = intern ("fontset-startup"); |
| 1768 | else | 1768 | else |
| @@ -1797,7 +1797,7 @@ fontset_from_font (Lisp_Object font_object) | |||
| 1797 | 1797 | ||
| 1798 | set_fontset_ascii (fontset, font_name); | 1798 | set_fontset_ascii (fontset, font_name); |
| 1799 | 1799 | ||
| 1800 | return XINT (FONTSET_ID (fontset)); | 1800 | return XFIXNUM (FONTSET_ID (fontset)); |
| 1801 | } | 1801 | } |
| 1802 | 1802 | ||
| 1803 | 1803 | ||
| @@ -1985,7 +1985,7 @@ patterns. */) | |||
| 1985 | fontset = check_fontset_name (name, &frame); | 1985 | fontset = check_fontset_name (name, &frame); |
| 1986 | 1986 | ||
| 1987 | CHECK_CHARACTER (ch); | 1987 | CHECK_CHARACTER (ch); |
| 1988 | c = XINT (ch); | 1988 | c = XFIXNUM (ch); |
| 1989 | list = Qnil; | 1989 | list = Qnil; |
| 1990 | while (1) | 1990 | while (1) |
| 1991 | { | 1991 | { |
| @@ -2002,7 +2002,7 @@ patterns. */) | |||
| 2002 | repertory = AREF (val, 1); | 2002 | repertory = AREF (val, 1); |
| 2003 | if (FIXNUMP (repertory)) | 2003 | if (FIXNUMP (repertory)) |
| 2004 | { | 2004 | { |
| 2005 | struct charset *charset = CHARSET_FROM_ID (XINT (repertory)); | 2005 | struct charset *charset = CHARSET_FROM_ID (XFIXNUM (repertory)); |
| 2006 | 2006 | ||
| 2007 | if (! CHAR_CHARSET_P (c, charset)) | 2007 | if (! CHAR_CHARSET_P (c, charset)) |
| 2008 | continue; | 2008 | continue; |