OSDN Git Service

fix add-on function.
authorvisor <visor@users.sourceforge.jp>
Sun, 5 Jun 2016 15:28:09 +0000 (00:28 +0900)
committervisor <visor@users.sourceforge.jp>
Sun, 5 Jun 2016 15:28:09 +0000 (00:28 +0900)
modules/ml-addon.cc

index d106da8..7769f66 100644 (file)
@@ -168,7 +168,8 @@ MNode*  ml_addon (MNode* cell, MlEnv* mlenv) {
     addon_sub2 (mlenv, o);
     ans = new ustring;
     o.proc.read (*ans);
-    *ans = fixUTF8 (*ans);
+//    *ans = fixUTF8 (*ans);
+    *ans = omitCtrlX (fixUTF8 (*ans));
 
     return newMNode_str (ans);
 }
@@ -187,7 +188,8 @@ MNode*  ml_addon_tab (MNode* cell, MlEnv* mlenv) {
        MNodeList  ans;
 
        o.proc.read (a);
-       a = fixUTF8 (a);
+//     a = fixUTF8 (a);
+       a = omitCtrlX (fixUTF8 (a));
        b = a.begin ();
        e = a.end ();
 //     while (usearch (b, e, m, re_tab)) {
@@ -236,7 +238,8 @@ MNode*  ml_addon_array_tab_nl (MNode* cell, MlEnv* mlenv) {
        int  i;
 
        o.proc.read (a);
-       a = fixUTF8 (a);
+//     a = fixUTF8 (a);
+       a = omitCtrlX (fixUTF8 (a));
        b = a.begin ();
        e = a.end ();
        p = b;