===================================================================
RCS file: /home/cvs/OpenXM/src/kxx/init-openxm.scm,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -p -r1.11 -r1.12
--- OpenXM/src/kxx/init-openxm.scm	2004/03/19 07:53:43	1.11
+++ OpenXM/src/kxx/init-openxm.scm	2004/03/25 01:05:34	1.12
@@ -1,4 +1,4 @@
-; $OpenXM: OpenXM/src/kxx/init-openxm.scm,v 1.10 2004/03/17 13:28:38 ohara Exp $
+; $OpenXM: OpenXM/src/kxx/init-openxm.scm,v 1.11 2004/03/19 07:53:43 ohara Exp $
 
 (define (openxm-eval t)
   (import-from (texmacs plugin plugin-cmd))
@@ -78,8 +78,16 @@
         )))
 )
 
+(define (openxm-serialize lan t)
+  (import-from (texmacs plugin plugin-cmd))
+  (with u (pre-serialize lan t)
+    (with s (texmacs->verbatim (object->tree u))
+      (string-append (string-replace s "\n" "\v") "\n")
+      )))
+
 (plugin-configure openxm
   (:require (url-exists-in-path? "openxm"))
   (:initialize (openxm-initialize))
+  (:serializer ,openxm-serialize)
   (:launch "exec openxm ox_texmacs")
   (:session "OpenXM[asir,sm1]"))