aboutsummaryrefslogtreecommitdiffstats
path: root/src/fontset.c
diff options
context:
space:
mode:
authorTom Tromey2018-08-07 18:08:53 -0600
committerTom Tromey2018-08-07 18:08:53 -0600
commitd1ec3a0a8e4d7d56ebc1e4fa743130b9974ac6a8 (patch)
tree04c920acf142f686d3cac11080b17a2fb0dfc9af /src/fontset.c
parent68ebff23f7057090da260830500cb278f7b886a5 (diff)
downloademacs-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.c48
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
1399set_fontset_font (Lisp_Object arg, Lisp_Object range) 1399set_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;