summaryrefslogtreecommitdiff
path: root/src/GF/Shell/CommandL.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/GF/Shell/CommandL.hs')
-rw-r--r--src/GF/Shell/CommandL.hs5
1 files changed, 3 insertions, 2 deletions
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