From 54b64e7879dae3274c3384563dc0a191e8729933 Mon Sep 17 00:00:00 2001
From: "Michael D. Lowis" <mike.lowis@gentex.com>
Date: Mon, 11 Sep 2017 16:27:01 -0400
Subject: [PATCH] more minor cleanup

---
 lib/x11.ml      | 2 +-
 lib/x11_prims.c | 5 -----
 2 files changed, 1 insertion(+), 6 deletions(-)

diff --git a/lib/x11.ml b/lib/x11.ml
index e5a780e..ed7ed4a 100644
--- a/lib/x11.ml
+++ b/lib/x11.ml
@@ -100,7 +100,7 @@ external sel_fetch : xatom -> unit
 external font_load : string -> font
                    = "x11_font_load"
 
-external font_glyph : string -> glyph
+external font_glyph : font -> int -> glyph
                     = "x11_font_glyph"
 
 (* Automatically connect and disconnect to the display server *)
diff --git a/lib/x11_prims.c b/lib/x11_prims.c
index 3ddb44e..00f3ca6 100644
--- a/lib/x11_prims.c
+++ b/lib/x11_prims.c
@@ -11,7 +11,6 @@ static char* strmcat(char* first, ...);
 
 static void xftcolor(XftColor* xc, int c);
 static void xftdrawrect(int x, int y, int w, int h, int c);
-static void draw_text(void);
 
 static value ev_focus(XEvent*);
 static value ev_keypress(XEvent*);
@@ -457,10 +456,6 @@ static void xftdrawrect(int x, int y, int w, int h, int c) {
     XftColorFree(X.display, X.visual, X.colormap, &clr);
 }
 
-static void draw_text(void) {
-
-}
-
 /* Miscellaneous Utilities
  ******************************************************************************/
 static value mkvariant(int tag, int nargs, ...) {
-- 
2.52.0