From 46f85fb13a569e27863565b4ec99800038e3fd68 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Wed, 29 Dec 2004 13:48:41 +0000
Subject: command cm

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

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

diff --git a/src/GF/Shell/PShell.hs b/src/GF/Shell/PShell.hs
index ff447fc6d..dd62067f2 100644
--- a/src/GF/Shell/PShell.hs
+++ b/src/GF/Shell/PShell.hs
@@ -68,6 +68,8 @@ pCommand ws = case ws of
   "i"  : f : [] -> aUnit   (CImport f)
   "rl" : l : [] -> aUnit   (CRemoveLanguage (language l))
   "e"  : []     -> aUnit   CEmptyState
+  "cm" : a : [] -> aUnit   (CChangeMain (Just (pzIdent a)))
+  "cm" : []     -> aUnit   (CChangeMain Nothing)
   "s"  : []     -> aUnit   CStripState
   "tg" : f : [] -> aUnit   (CTransformGrammar f)
   "cl" : f : [] -> aUnit   (CConvertLatex f)
-- 
cgit v1.2.3