[BACK]Return to init-openxm.scm CVS log [TXT][DIR] Up to [local] / OpenXM / src / kxx

Diff for /OpenXM/src/kxx/init-openxm.scm between version 1.17 and 1.18

version 1.17, 2006/02/13 10:00:05 version 1.18, 2006/02/13 12:30:08
Line 1 
Line 1 
 ; $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.17 2006/02/13 10:00:05 ohara Exp $
   
 (define (alist-search alist)  (define (alist-search alist)
   (let* ((lang (or (getenv "LANG") "C"))    (let* ((lang (or (getenv "LANG") "C"))
Line 58 
Line 58 
   (menu-extend texmacs-extra-menu    (menu-extend texmacs-extra-menu
     (if (in-openxm?)      (if (in-openxm?)
       (=> "OpenXM"        (=> "OpenXM"
         (-> "Select engines"  ;         (-> "Select engines"
           ("Risa/Asir" (insert-string "!asir;"))  ;           ("Risa/Asir" (insert-string "!asir;"))
           ("Kan/sm1"   (insert-string "!sm1;")))  ;           ("Kan/sm1"   (insert-string "!sm1;")))
 ;         (-> "Select display style"  ;         (-> "Select display style"
 ;           ("LaTeX"     (openxm-eval "!latex;"))  ;           ("LaTeX"     (openxm-eval "!latex;"))
 ;           ("verbatim"  (openxm-eval "!verbatim;")))  ;           ("verbatim"  (openxm-eval "!verbatim;")))
Line 80 
Line 80 
 ;           ("Weyl algebra"   (openxm-eval "noro_print_env(\"weyl\");"))  ;           ("Weyl algebra"   (openxm-eval "noro_print_env(\"weyl\");"))
 ;           ("Euler OPs"      (openxm-eval "noro_print_env(\"yang\");"))  ;           ("Euler OPs"      (openxm-eval "noro_print_env(\"yang\");"))
 ;           )  ;           )
         ---  ;         ---
         (-> "Manuals"          (-> "Manuals"
           ("Risa/Asir manual"            ("Risa/Asir manual"
            (w3m-search manual-asir2000))             (w3m-search manual-asir2000))
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>