diff options
author | David Roundy <droundy@darcs.net> | 2007-08-10 19:04:45 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-08-10 19:04:45 +0200 |
commit | 460505b5ed48f7da854d939f6ecb14460b28c71e (patch) | |
tree | 50649a5accff5ff33e29e99006ae372e76e02353 /XPrompt.hs | |
parent | f584113ce9cd012e521f39a647c97985235289ce (diff) | |
download | XMonadContrib-460505b5ed48f7da854d939f6ecb14460b28c71e.tar.gz XMonadContrib-460505b5ed48f7da854d939f6ecb14460b28c71e.tar.xz XMonadContrib-460505b5ed48f7da854d939f6ecb14460b28c71e.zip |
don't crash when given a non-existent font in XPrompt.
darcs-hash:20070810170445-72aca-1784272b5a0036ed007916221840c73436650ef2.gz
Diffstat (limited to 'XPrompt.hs')
-rw-r--r-- | XPrompt.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -130,7 +130,8 @@ mkXPrompt t conf compl action = do liftIO $ selectInput d w $ exposureMask .|. keyPressMask gc <- liftIO $ createGC d w liftIO $ setGraphicsExposures d gc False - fontS <- liftIO $ loadQueryFont d (font conf) + fontS <- liftIO (loadQueryFont d (font conf) `catch` + \_ -> loadQueryFont d "-misc-fixed-*-*-*-*-10-*-*-*-*-*-*-*") (hist,h) <- liftIO $ readHistory let st = initState d rw w s compl gc fontS (XPT t) hist conf st' <- liftIO $ execStateT runXP st |