/*
 * -- $Header: /cec/src/nestor/servers/R3/shXlib/XUnldFont.c,v 1.1.1.1 90/04/23 10:09:01 spanachi Exp $
 */

#include "copyright.h"

/* $XConsortium: XUnldFont.c,v 11.6 88/09/06 16:11:16 jim Exp $ */
/* Copyright    Massachusetts Institute of Technology    1986	*/

/* -- MULTIPLEX Extension -- */

#include "Xlibint.h"

/* additional includes -- */
#include "resources.h"

XUnloadFont(dpy, font)
     register Display *dpy;
     Font font;

{       
    register xResourceReq *req;

    /*
     * -- CAUTION : Dangling resource reference ! 
     * -- This font may have been used by the application to create a glyph
     * -- cursor. We can't throw it away if the cursor is still in use
     */
    if( XmuXFontStillReferenced( dpy , font ) )
	return ;

    LockDisplay(dpy);
    GetResReq(CloseFont, font, req);

    /* -- free the resource info if the resource is freed by the client -- */
    if( XmuXStoreResources( dpy ) )
	XmuXRemoveFontInfo( dpy , font ) ;

    UnlockDisplay(dpy);
    SyncHandle();
}