From 3f192bd2bb99f827abd20be36fc125c0e6553e80 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Fri, 10 Jun 2005 14:59:58 +0000
Subject: editor command pc n ; resource/finnish

---
 src/GF/Shell/CommandL.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/GF/Shell/CommandL.hs')

diff --git a/src/GF/Shell/CommandL.hs b/src/GF/Shell/CommandL.hs
index 62d3f9e87..63f4c4258 100644
--- a/src/GF/Shell/CommandL.hs
+++ b/src/GF/Shell/CommandL.hs
@@ -5,9 +5,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/06/03 22:44:36 $ 
+-- > CVS $Date: 2005/06/10 15:59:58 $ 
 -- > CVS $Author: aarne $
--- > CVS $Revision: 1.17 $
+-- > CVS $Revision: 1.18 $
 --
 -- (Description of the module)
 -----------------------------------------------------------------------------
@@ -122,6 +122,7 @@ pCommandMsg s = (m,pCommandWords $ words c) where
     "u" : _       -> CUndo
     "d" : _       -> CDelete
     "ac" : _      -> CAddClip
+    "pc": i : _   -> CRemoveClip (readIntArg i)
     "c" : s : _   -> CTermCommand s
     "a" : _       -> CRefineRandom --- *a*leatoire
     "m" :  _      -> CMenu
-- 
cgit v1.2.3