===================================================================
RCS file: /home/cvs/OpenXM/src/kxx/init-openxm.scm,v
retrieving revision 1.17
retrieving revision 1.19
diff -u -p -r1.17 -r1.19
--- OpenXM/src/kxx/init-openxm.scm	2006/02/13 10:00:05	1.17
+++ OpenXM/src/kxx/init-openxm.scm	2009/02/22 17:30:03	1.19
@@ -1,4 +1,4 @@
-; $OpenXM: OpenXM/src/kxx/init-openxm.scm,v 1.16 2006/02/13 09:21:08 ohara Exp $
+; $OpenXM: OpenXM/src/kxx/init-openxm.scm,v 1.18 2006/02/13 12:30:08 ohara Exp $
 
 (define (alist-search alist)
   (let* ((lang (or (getenv "LANG") "C"))
@@ -7,7 +7,7 @@
 
 (define manual-asir2000 
   (alist-search
-   '(("C"  . "doc/asir2000/html-eg/man_toc.html") ("ja" . "doc/asir2000/html-jp/man_toc.html"))))
+   '(("C"  . "doc/asir2000/html-en/man_toc.html") ("ja" . "doc/asir2000/html-ja/man_toc.html"))))
 
 (define manual-asir-contrib
   (alist-search
@@ -58,9 +58,9 @@
   (menu-extend texmacs-extra-menu
     (if (in-openxm?)
       (=> "OpenXM"
-        (-> "Select engines"
-          ("Risa/Asir" (insert-string "!asir;"))
-          ("Kan/sm1"   (insert-string "!sm1;")))
+;         (-> "Select engines"
+;           ("Risa/Asir" (insert-string "!asir;"))
+;           ("Kan/sm1"   (insert-string "!sm1;")))
 ;         (-> "Select display style"
 ;           ("LaTeX"     (openxm-eval "!latex;"))
 ;           ("verbatim"  (openxm-eval "!verbatim;")))
@@ -80,7 +80,7 @@
 ;           ("Weyl algebra"   (openxm-eval "noro_print_env(\"weyl\");"))
 ;           ("Euler OPs"      (openxm-eval "noro_print_env(\"yang\");"))
 ;           )
-        ---
+;         ---
         (-> "Manuals"
           ("Risa/Asir manual"
            (w3m-search manual-asir2000))