diff options
Diffstat (limited to '')
-rw-r--r-- | XPrompt.hs | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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 |