From d0c75667910bfe5e2ee3f8434d7079f2c1bed65c Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Fri, 10 Oct 2003 11:35:52 +0000
Subject: Added clipboard.

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

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

diff --git a/src/GF/Shell/CommandL.hs b/src/GF/Shell/CommandL.hs
index d470130ab..dcf62d44b 100644
--- a/src/GF/Shell/CommandL.hs
+++ b/src/GF/Shell/CommandL.hs
@@ -55,6 +55,7 @@ pCommand = pCommandWords . words where
     "t" : ws      -> CNewTree $ unwords ws
     "g" : ws      -> CRefineWithTree $ unwords ws  -- *g*ive
     "p" : ws      -> CRefineParse $ unwords ws
+    "rc": i : _   -> CRefineWithClip (readIntArg i)
     ">" : i : _   -> CAhead $ readIntArg i
     ">" : []      -> CAhead 1
     "<" : i : _   -> CBack $ readIntArg i
@@ -75,6 +76,7 @@ pCommand = pCommandWords . words where
     "f" : s : _   -> CAddOption (filterString s)
     "u" : _       -> CUndo
     "d" : _       -> CDelete
+    "ac" : _      -> CAddClip
     "c" : s : _   -> CTermCommand s
     "a" : _       -> CRefineRandom --- *a*leatoire
     "m" :  _      -> CMenu
-- 
cgit v1.2.3