This commit was generated by cvs2svn to compensate for changes in r434,

[elisp/tm.git] / mh-e / mk-tmh

diff --git a/mh-e/mk-tmh b/mh-e/mk-tmh
index 4d2fa1b..1df657b 100644 (file)
--- 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))
     ))