===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/ext.c,v
retrieving revision 1.47
retrieving revision 1.49
diff -u -p -r1.47 -r1.49
--- OpenXM/src/kan96xx/Kan/ext.c	2016/03/31 03:22:54	1.47
+++ OpenXM/src/kan96xx/Kan/ext.c	2018/09/07 00:09:32	1.49
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.46 2013/09/25 00:05:55 takayama Exp $ */
+/* $OpenXM: OpenXM/src/kan96xx/Kan/ext.c,v 1.48 2016/03/31 05:27:34 takayama Exp $ */
 #include <stdio.h>
 #include <string.h>
 #include <sys/types.h>
@@ -20,7 +20,7 @@
 #include <errno.h>
 #include <regex.h>
 #include "ox_pathfinder.h"
-#include "../plugin/mysig.h"
+#include "mysig.h"
 
 extern int Quiet;
 extern char **environ;
@@ -524,6 +524,11 @@ struct object Kextension(struct object obj)
     obj1 = getoa(obj,1);
     if (obj1.tag != Sdollar) errorKan1("%s\n","unlink, the first argument should be a string (filename).");
     rob = KpoInteger(oxDeleteFile(KopString(obj1)));
+  }else if (strcmp(key,"quiet")==0) {
+    obj1 = getoa(obj,1);
+    if (obj1.tag != Sinteger) errorKan1("%s\n","quiet, the first argument should be an integer.");
+    Quiet = KopInteger(obj1);
+    rob = obj1;
   }
 #include "plugin.hh"
 #include "Kclass/tree.hh"