From bd31860cd1fad8745e74702e286aec59c3fd498a Mon Sep 17 00:00:00 2001
From: Spencer Janssen <spencerjanssen@gmail.com>
Date: Fri, 30 Oct 2009 23:43:54 +0100
Subject: Remove putSelection, fixes #317

Ignore-this: 6cfd6d92e1d133bc9e3cbb7c8339f735

darcs-hash:20091030224354-25a6b-1181861af8f4783783d875491a8d67cd26538ca3.gz
---
 XMonad/Prompt.hs | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

(limited to 'XMonad/Prompt.hs')

diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs
index 6abb4d0..90e8685 100644
--- a/XMonad/Prompt.hs
+++ b/XMonad/Prompt.hs
@@ -29,7 +29,7 @@ module XMonad.Prompt
     , defaultXPKeymap
     , quit
     , killBefore, killAfter, startOfLine, endOfLine
-    , pasteString, copyString, moveCursor
+    , pasteString, moveCursor
     , moveWord, killWord, deleteString
     , moveHistory, setSuccess, setDone
     , Direction1D(..)
@@ -67,7 +67,7 @@ import qualified XMonad as X (numlockMask,config)
 import qualified XMonad.StackSet as W
 import XMonad.Util.Font
 import XMonad.Util.Types
-import XMonad.Util.XSelection (getSelection, putSelection)
+import XMonad.Util.XSelection (getSelection)
 
 import Control.Arrow ((&&&),first)
 import Control.Concurrent (threadDelay)
@@ -403,7 +403,6 @@ defaultXPKeymap = M.fromList $
   , (xK_a, startOfLine)
   , (xK_e, endOfLine)
   , (xK_y, pasteString)
-  , (xK_c, copyString)
   , (xK_Right, moveWord Next)
   , (xK_Left, moveWord Prev)
   , (xK_Delete, killWord Next)
@@ -505,10 +504,6 @@ insertString str =
 pasteString :: XP ()
 pasteString = join $ io $ liftM insertString getSelection
 
--- | Copy the currently entered string into the X selection.
-copyString :: XP ()
-copyString = gets command >>= io . putSelection
-
 -- | Remove a character at the cursor position
 deleteString :: Direction1D -> XP ()
 deleteString d =
-- 
cgit v1.2.3