From b235391d514986d56d8ce7067da0547fc403df2a Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Wed, 17 Aug 2005 14:13:55 +0000
Subject: edit command ct pos1 pos2; fixed undo bug

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

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

diff --git a/src/GF/Shell/CommandL.hs b/src/GF/Shell/CommandL.hs
index 79f822c7f..3697c85db 100644
--- a/src/GF/Shell/CommandL.hs
+++ b/src/GF/Shell/CommandL.hs
@@ -5,9 +5,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/08/17 14:43:50 $ 
+-- > CVS $Date: 2005/08/17 15:13:55 $ 
 -- > CVS $Author: aarne $
--- > CVS $Revision: 1.20 $
+-- > CVS $Revision: 1.21 $
 --
 -- (Description of the module)
 -----------------------------------------------------------------------------
@@ -110,7 +110,7 @@ pCommandMsg s = (m,pCommandWords $ words c) where
     "'" : _       -> CTop
     "+" : _       -> CLast
     "mp" : p      -> CMovePosition (readIntList (unwords p))
-    "ct" : p      -> CCopyPosition (readIntList (unwords p))
+    "ct" : p:q:_  -> CCopyPosition (readIntList p) (readIntList q)
     "r" : f : _   -> CRefineWithAtom f
     "w" : f:i : _ -> CWrapWithFun (f, readIntArg i)
     "ch": f : _   -> CChangeHead f
-- 
cgit v1.2.3