DoSetSelectedFont(w, client_data, selection, type, value, length, format) Widget w GCC_UNUSED; XtPointer client_data GCC_UNUSED; Atom *selection GCC_UNUSED; Atom *type; XtPointer value; unsigned long *length GCC_UNUSED; int *format;
DoSetSelectedFont( Widget w GCC_UNUSED, XtPointer client_data GCC_UNUSED, Atom *selection GCC_UNUSED, Atom *type, XtPointer value, unsigned long *length GCC_UNUSED, int *format)
DoSetSelectedFont(w, client_data, selection, type, value, length, format)    Widget w GCC_UNUSED;    XtPointer client_data GCC_UNUSED;    Atom *selection GCC_UNUSED;    Atom *type;    XtPointer value;    unsigned long *length GCC_UNUSED;    int *format;{    char *val = (char *)value;    int len;    if (*type != XA_STRING  ||  *format != 8) {	Bell(XkbBI_MinorError,0);	return;    }    len = strlen(val);    if (len > 0) {	if (val[len-1] == '\n') val[len-1] = '\0';	/* Do some sanity checking to avoid sending a long selection	   back to the server in an OpenFont that is unlikely to succeed.	   XLFD allows up to 255 characters and no control characters;	   we are a little more liberal here. */	if (len > 1000  ||  strchr(val, '\n'))	    return;	if (!LoadNewFont (&term->screen, val, NULL, True, fontMenu_fontsel))	    Bell(XkbBI_MinorError,0);    }}