From afbbafc1e2c87d070ae07634bfca121d825ea37b Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Sun, 16 Dec 2012 19:27:24 +0100
Subject: Record polachok's fix for issue 507

Ignore-this: 13743d035e50f642de017c3304f914e

darcs-hash:20121216182724-1499c-0ca6203c00560a5a405d540d83ffd5c2753a6ee6.gz
---
 XMonad/Prompt.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'XMonad/Prompt.hs')

diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs
index 90509d5..87d4498 100644
--- a/XMonad/Prompt.hs
+++ b/XMonad/Prompt.hs
@@ -75,7 +75,7 @@ import           XMonad.Util.Font
 import           XMonad.Util.Types
 import           XMonad.Util.XSelection       (getSelection)
 
-import           Codec.Binary.UTF8.String     (decodeString)
+import           Codec.Binary.UTF8.String     (decodeString,isUTF8Encoded)
 import           Control.Applicative          ((<$>))
 import           Control.Arrow                (first, (&&&), (***))
 import           Control.Concurrent           (threadDelay)
@@ -662,7 +662,10 @@ keyPressHandle m (ks,str) = do
     Nothing -> case str of
                  "" -> eventLoop handle
                  _ -> when (kmask .&. controlMask == 0) $ do
-                                 insertString (decodeString str)
+                                 let str' = if isUTF8Encoded str
+                                               then decodeString str
+                                               else str
+                                 insertString str'
                                  updateWindows
                                  updateHighlightedCompl
                                  completed <- tryAutoComplete
-- 
cgit v1.2.3