From d9535d12b2ce0dd30f14efadd286b76a2468c663 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Fri, 10 Aug 2007 19:45:43 +0200
Subject: actually use the selected font in XPrompt.

darcs-hash:20070810174543-72aca-37b0aba755e79a399b0cbe2e972f0f445752fc88.gz
---
 XPrompt.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'XPrompt.hs')

diff --git a/XPrompt.hs b/XPrompt.hs
index d0a0256..1ab75ec 100644
--- a/XPrompt.hs
+++ b/XPrompt.hs
@@ -132,6 +132,7 @@ mkXPrompt t conf compl action = do
   liftIO $ setGraphicsExposures d gc False
   fontS <- liftIO (loadQueryFont d (font conf) `catch`
                    \_ -> loadQueryFont d "-misc-fixed-*-*-*-*-10-*-*-*-*-*-*-*")
+  liftIO $ setFont d gc $ fontFromFontStruct fontS
   (hist,h) <- liftIO $ readHistory
   let st = initState d rw w s compl gc fontS (XPT t) hist conf
   st' <- liftIO $ execStateT runXP st
-- 
cgit v1.2.3