From 9b255372fce0b04c83e46e5e7dd58ae44f04b6ff Mon Sep 17 00:00:00 2001
From: ntakahas <ntakahas>
Date: Tue, 10 Mar 2009 12:52:35 +0000
Subject: [PATCH] (decode_saction): Add support for "shift-back".

---
 src/input-xml.c |    9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/input-xml.c b/src/input-xml.c
index a09370f..84d0647 100644
--- a/src/input-xml.c
+++ b/src/input-xml.c
@@ -717,6 +717,15 @@ decode_saction (xmlDocPtr doc, xmlNodePtr cur, MPlist *parent)
       xmlFree (ptr);
       M17N_OBJECT_UNREF (plist);
     }
+  else if (xmlStrEqual (cur->name, (xmlChar *) "shift-back"))
+    {
+      MPlist *plist = mplist ();
+
+      mplist_add (plist, Msymbol, msymbol ("shift"));
+      mplist_add (plist, Msymbol, Mt);
+      mplist_add (parent, Mplist, plist);
+      M17N_OBJECT_UNREF (plist);
+    }
   else
     decode_action (doc, cur, parent);
 }
-- 
1.7.10.4