tm 7.96.

[elisp/tm.git] / TM-MK

diff --git a/TM-MK b/TM-MK
index 36c4f07..903b4c9 100644 (file)
--- a/TM-MK
+++ b/TM-MK
@@ -1,6 +1,6 @@
 ;;; -*-Emacs-Lisp-*-
 ;;;
-;;; $Id: TM-MK,v 7.43 1996/11/27 11:48:53 morioka Exp morioka $
+;;; $Id: TM-MK,v 7.46 1996/12/07 09:17:01 morioka Exp morioka $
 ;;;
 
 (defun config-tm ()
@@ -89,7 +89,20 @@
     ;; generate tm external-methods path setting
     (or (string= METHOD_DIR exec-directory)
        (insert
-        (format "\n(defvar mime-viewer/external-progs %s)"
+        (format "\n
+(defvar mime-viewer/external-progs%s
+  \"*Directory containing tm external methods.\")
+
+(add-to-list 'exec-path mime-viewer/external-progs)
+
+(let ((paths (parse-colon-path (getenv \"PATH\"))))
+  (or (member mime-viewer/external-progs paths)
+      (setenv \"PATH\"
+             (mapconcat (function identity)
+                        (append paths (list mime-viewer/external-progs))
+                        path-separator))
+      ))
+"
                 (let ((dir (file-relative-name METHOD_DIR data-directory)))
                   (if (< (length dir) (length METHOD_DIR))
                       (concat "\n  (expand-file-name \""
@@ -99,7 +112,7 @@
                     (if (< (length dir) (length METHOD_DIR))
                         (concat "\n  (expand-file-name \"~/"
                                 dir "\")")
-                      (concat "\"" METHOD_DIR "\"")
+                      (concat " \"" METHOD_DIR "\"")
                       )))
                 ))
        )
@@ -170,4 +183,99 @@
   (install-files METHODS METHOD_SRC_DIR METHOD_DIR nil t)
   )
 
+
+(defun update-xemacs-source ()
+  (setq LISPDIR (expand-file-name "../lisp" data-directory))
+  (load-file "TM-CFG")
+  (setq EMU_DIR TL_DIR)
+  (setq SETUP_FILE_DIR TM_KERNEL_DIR)
+  (load-file "../emu/EMU-ELS")
+  (load-file "../tl/TL-ELS")
+  (load-file "../mu/MU-ELS")
+  (load-file "../mel/MEL-ELS")
+  (load-file "TM-ELS")
+  (load-file "../tm-mh-e/TMH-ELS")
+  (load-file "../tm-mail/TMAIL-ELS")
+  (load-file "../tm-vm/TM-VM-ELS")
+  
+  (copy-file "mime-setup.el.in" "mime-setup.el" t t)
+  (set-file-modes "mime-setup.el" (+ (* 6 64) (* 4 8) 4))
+  (compile-elisp-modules emu-modules           "../emu")
+  (compile-elisp-modules tl-modules            "../tl")
+  (compile-elisp-modules mu-modules-to-compile "../mu")
+  (compile-elisp-modules mel-modules           "../mel")
+  (compile-elisp-modules tm-modules-to-compile ".")
+  (compile-elisp-modules tm-mh-e-modules       "../tm-mh-e")
+  (compile-elisp-module  'mime-setup           ".")
+  (require 'gnus)
+  (load "../gnus-mime/Gnus-MIME-ELS")
+  (compile-elisp-modules gnus-mime-modules-to-compile "../gnus-mime")
+  (compile-elisp-modules tm-mail-modules       "../tm-mail")
+  (compile-elisp-modules tm-vm-modules-to-compile "../tm-vm")
+  
+  (install-elisp-modules emu-modules    "../emu"       EMU_DIR)
+  (install-elisp-modules tl-modules     "../tl"        TL_DIR)
+  (install-elisp-modules mu-modules     "../mu"        MU_DIR)
+  (install-elisp-modules mel-modules    "../mel"       MEL_DIR)
+  (install-elisp-modules tm-modules     "."            TM_KERNEL_DIR)
+  (install-elisp-modules tm-mh-e-modules "../tm-mh-e"  TM_MHE_DIR)
+  (install-elisp-modules gnus-mime-modules "../gnus-mime" Gnus_MIME_DIR)
+  (install-elisp-modules tm-mail-modules "../tm-mail"  TM_MAIL_DIR)
+  (install-elisp-modules tm-vm-modules  "../tm-vm"     TM_VM_DIR)
+  (install-elisp-modules '(mime-setup)  "."    SETUP_FILE_DIR)
+
+  (setq METHOD_DIR (expand-file-name "../lib-src" data-directory))
+  (install-files METHODS METHOD_SRC_DIR METHOD_DIR nil t)
+  
+  (install-file "sinfo.dtd" "../sinfo"
+               (expand-file-name "../etc/sgml" data-directory)
+               nil t)
+  
+  (install-files '("tm-edit-en.sgml"   "tm-edit-en.texi"
+                  "tm-edit-ja.sgml"    "tm-edit-ja.texi"
+                  "tm-en.sgml"         "tm-en.texi"
+                  "tm-ja.sgml"         "tm-ja.texi"
+                  "tm-view-en.sgml"    "tm-view-en.texi"
+                  "tm-view-ja.sgml"    "tm-view-ja.texi"
+                  )
+                "doc"
+                (expand-file-name "../man/tm" data-directory)
+                nil t)
+  (install-files '("tm-edit-en.info"   "tm-edit-ja.info"
+                  "tm-en.info"         "tm-ja.info"
+                  "tm-view-en.info"    "tm-view-ja.info"
+                  )
+                "doc"
+                (expand-file-name "../info" data-directory)
+                nil t)
+  (install-files '("gnus-mime-en.sgml" "gnus-mime-en.texi"
+                  "gnus-mime-ja.sgml"  "gnus-mime-ja.texi"
+                  )
+                "../gnus-mime"
+                (expand-file-name "../man/tm" data-directory)
+                nil t)
+  (install-files '("gnus-mime-en.info" "gnus-mime-ja.info")
+                "../gnus-mime"
+                (expand-file-name "../info" data-directory)
+                nil t)
+  (install-files '("tm-mh-e-en.sgml"   "tm-mh-e-en.texi"
+                  "tm-mh-e-ja.sgml"    "tm-mh-e-ja.texi"
+                  )
+                "../tm-mh-e"
+                (expand-file-name "../man/tm" data-directory)
+                nil t)
+  (install-files '("tm-mh-e-en.info"   "tm-mh-e-ja.info")
+                "../tm-mh-e"
+                (expand-file-name "../info" data-directory)
+                nil t)
+  (install-files '("tm-vm_en.texi")
+                "../tm-vm"
+                (expand-file-name "../man/tm" data-directory)
+                nil t)
+  (install-files '("tm-vm_en.info")
+                "../tm-vm"
+                (expand-file-name "../info" data-directory)
+                nil t)
+  )
+
 ;;; TM-MK ends here