X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mh-e%2Fmk-tmh;h=1df657b53265aac39a83ed7995b7bc35d0016d79;hb=d26bc385edbd0d6d6abdcdaf7fb011296ff7eba8;hp=4d2fa1bf294b1585eb99f9064414f57cf023da0e;hpb=63130ba4e02aedc5c33f7bbf8eaef8d8ed0c8911;p=elisp%2Ftm.git

diff --git a/mh-e/mk-tmh b/mh-e/mk-tmh
index 4d2fa1b..1df657b 100644
--- a/mh-e/mk-tmh
+++ b/mh-e/mk-tmh
@@ -1,4 +1,7 @@
 ;;; -*-Emacs-Lisp-*-
+;;;
+;;; $Id: mk-tmh,v 3.0 1996/03/04 09:22:37 morioka Exp morioka $
+;;;
 
 (setq load-path (append
 		 (mapcar (function
@@ -10,28 +13,14 @@
 		 load-path))
 
 (require 'mh-e)
+(require 'emu)
 
-(setq tm-mh-e-modules
-      (append
-       '("tm-mh-e")
-       (if (not (boundp 'mh-e-version))
-	   '("tm-mh-e3")
-	 )
-       ))
-
-(setq tm-mh-e-el-files
-      (mapcar (function (lambda (module)
-			  (concat module ".el")
-			  ))
-	      tm-mh-e-modules))
-
-(setq tm-mh-e-elc-files
-      (mapcar (function (lambda (module)
-			  (concat module ".elc")
-			  ))
-	      tm-mh-e-modules))
+(load-file "tmh-els")
 
 (defun compile-tm-mh-e ()
+  (require 'tm-mh-e)
+  (require 'mh-comp)
+  (require 'tm-edit)
   (mapcar (function byte-compile-file) tm-mh-e-el-files)
   )
 
@@ -70,6 +59,10 @@
 (defun install-tm-mh-e ()
   (let ((path (car command-line-args-left)))
     (princ (format "%s\n" emacs-version))
+    (if (not (file-exists-p path))
+	(make-directory path t)
+      )
     (apply (function install-el-files) path tm-mh-e-el-files)
     (apply (function install-elc-files) path tm-mh-e-elc-files)
+    (setq command-line-args-left (cdr command-line-args-left))
     ))