scsh-conservatory
/
scx
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

+ fixed typo (dabbrev is the source of all evil, believe me!)

This commit is contained in:
eknauel 2003-10-16 17:08:19 +00:00
parent 5c69abfa05
commit 14b26869a8
2 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
c/libs/xft.c
View File

@ -329,7 +329,7 @@ s48_value scx_XftListFontsPatternObjects(s48_value sdpy, s48_value sscreen,
void scx_xft_init(void)
{
XFT_GC_PROTECT_IMPORT_BINDING(scx_xftpattern_record_type, "xft-pattern");
XFT_GC_PROTECT_IMPORT_BINDING(scx_xftfontset_record_type, "xft-font");
XFT_GC_PROTECT_IMPORT_BINDING(scx_xftfont_record_type, "xft-font");
XFT_GC_PROTECT_IMPORT_BINDING(scx_xftdraw_record_type, "xft-draw");
XFT_GC_PROTECT_IMPORT_BINDING(scx_xftcolor_record_type, "xft-color");
XFT_GC_PROTECT_IMPORT_BINDING(scx_xftobjectset_record_type, "xft-objectset");

22
c/libs/xft.h
View File

@ -96,23 +96,23 @@ static struct xft_pattern_property xft_pattern_property_tbl [] = {
/* scheme record types */
static s48_value scx_xftpattern_record_type = S48_FALSE;
s48_value scx_xftfont_record_type = S48_FALSE;
s48_value scx_xftdraw_record_type = S48_FALSE;
s48_value scx_xftcolor_record_type = S48_FALSE;
s48_value scx_xftobjectset_record_type = S48_FALSE;
s48_value scx_xftfontset_record_type = S48_FALSE;
static s48_value scx_xftfont_record_type = S48_FALSE;
static s48_value scx_xftdraw_record_type = S48_FALSE;
static s48_value scx_xftcolor_record_type = S48_FALSE;
static s48_value scx_xftobjectset_record_type = S48_FALSE;
static s48_value scx_xftfontset_record_type = S48_FALSE;
#define XFT_GC_PROTECT_IMPORT_BINDING(CN, SN) \
S48_GC_PROTECT_GLOBAL(CN); \
CN = s48_get_imported_binding(SN);
/* C values exported to scheme */
s48_value scx_XftResultMatch = S48_FALSE;
s48_value scx_XftResultNoMatch = S48_FALSE;
s48_value scx_XftResultTypeMismatch = S48_FALSE;
s48_value scx_XftResultNoId = S48_FALSE;
s48_value scx_XftVersionMajor = S48_FALSE;
s48_value scx_XftVersionMinor = S48_FALSE;
static s48_value scx_XftResultMatch = S48_FALSE;
static s48_value scx_XftResultNoMatch = S48_FALSE;
static s48_value scx_XftResultTypeMismatch = S48_FALSE;
static s48_value scx_XftResultNoId = S48_FALSE;
static s48_value scx_XftVersionMajor = S48_FALSE;
static s48_value scx_XftVersionMinor = S48_FALSE;
#define XFT_REC_ACCESSOR_MAKER(FN, TN, RN) \
s48_value FN(TN *p) \