From fea0dbe8726a61ac52ca0bd41f12785b6eacd367 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Wed, 7 Jan 2015 04:50:19 +0100
Subject: Honoring multiple fonts in the last fix

---
 src/XUtil.hsc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/XUtil.hsc b/src/XUtil.hsc
index d123d4e..900cc75 100644
--- a/src/XUtil.hsc
+++ b/src/XUtil.hsc
@@ -213,7 +213,7 @@ printString dpy drw fs@(Xft fonts) _ fc bc x y s al = do
   withDrawingColors dpy drw fc bc $ \draw -> \fc' -> \bc' -> do
     when (al == 255) $ do
       (a,d)  <- textExtents fs s
-      gi <- xftTxtExtents dpy (head fonts) s
+      gi <- xftTxtExtents' dpy fonts s
       drawXftRect draw bc' (x + 1 - fi (xglyphinfo_x gi))
                   (y - (a + d) + 1) (xglyphinfo_xOff gi) (a + d)
     (drawXftString' draw fc' fonts (toInteger x) (toInteger (y - 2)) s)
-- 
cgit v1.2.3