Index: trunk/src/font.c
===================================================================
--- trunk/src/font.c	(revision 7027)
+++ trunk/src/font.c	(revision 7028)
@@ -257,3 +257,16 @@
 	}
 	fk->last_id = 0;
 }
+
+int pcb_del_font(pcb_fontkit_t *fk, pcb_font_id_t id)
+{
+	htip_entry_t *e;
+
+	if ((id == 0) || (!fk->hash_inited) || (htip_get(&fk->fonts, id) == NULL))
+		return -1;
+
+	e = htip_popentry(&fk->fonts, id);
+	pcb_font_free(e->value);
+	return 0;
+}
+
Index: trunk/src/font.h
===================================================================
--- trunk/src/font.h	(revision 7027)
+++ trunk/src/font.h	(revision 7028)
@@ -73,6 +73,8 @@
 /*** font kit handling ***/
 void pcb_fontkit_free(pcb_fontkit_t *fk);
 pcb_font_t *pcb_new_font(pcb_fontkit_t *fk, pcb_font_id_t id, const char *name);
+int pcb_del_font(pcb_fontkit_t *fk, pcb_font_id_t id);
 
+
 #endif