tm 7.84.

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

diff --git a/mh-e/mk-tmh b/mh-e/mk-tmh
index 822e267..e8cfb85 100644 (file)
--- a/mh-e/mk-tmh
+++ b/mh-e/mk-tmh
@@ -1,79 +1,35 @@
 ;;; -*-Emacs-Lisp-*-
+;;;
+;;; $Id: mk-tmh,v 7.0 1996/09/03 15:23:15 morioka Exp $
+;;;
 
-(setq load-path (append
+(setq load-path (nconc
                 (mapcar (function
                          (lambda (path)
                            (expand-file-name path (getenv "PWD"))
                            ))
-                        '("." ".." "../../tl/" "../../mel/")
+                        '("." ".." "../../tl" "../../mu" "../../mel")
                         )
                 load-path))
 
 (require 'mh-e)
 (require 'emu)
+(require 'install)
 
-(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 ()
-  (mapcar (function byte-compile-file) tm-mh-e-el-files)
+  (require 'tm-mh-e)
+  (require 'mh-comp)
+  (require 'tm-edit)
+  (compile-elisp-modules tm-mh-e-modules ".")
   )
 
-(defconst el-file-mode (+ (* 64 6)(* 8 4) 4))
-
-(defun install-el (path file)
-  (let ((full-path (expand-file-name file path)))
-    (if (file-exists-p full-path)
-       (set-file-modes full-path el-file-mode)
-      )
-    (copy-file file full-path t t)
-    (princ (format "%s -> %s\n" file path))
-    ))
-
-(defun install-el-files (path &rest files)
-  (mapcar (function (lambda (file)
-                     (if (file-exists-p file)
-                         (install-el path file)
-                       )))
-         files))
-
-(defun install-elc (path file)
-  (let ((full-path (expand-file-name file path)))
-    (copy-file file full-path t t)
-    (delete-file file)
-    (princ (format "%s -> %s\n" file path))
-    ))
-
-(defun install-elc-files (path &rest files)
-  (mapcar (function (lambda (file)
-                     (if (file-exists-p file)
-                         (install-elc path file)
-                       )))
-         files))
-
 (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)
-    ))
+    (install-elisp-modules     tm-mh-e-modules "./"    path)
+    )
+  (setq command-line-args-left (cdr command-line-args-left))
+  )
+
+;;; mk-tmh ends here