;;; -*-Emacs-Lisp-*-
;;;
;;; $Id: mk-tmh,v 7.0 1996/09/03 15:23:15 morioka Exp $
;;;

(setq load-path (nconc
		 (mapcar (function
			  (lambda (path)
			    (expand-file-name path (getenv "PWD"))
			    ))
			 '("." ".." "../../tl" "../../mu" "../../mel")
			 )
		 load-path))

(require 'mh-e)
(require 'emu)
(require 'install)

(load-file "TMH-ELS")

(defun compile-tm-mh-e ()
  (require 'tm-mh-e)
  (require 'mh-comp)
  (require 'tm-edit)
  (compile-elisp-modules tm-mh-e-modules ".")
  )

(defun install-tm-mh-e ()
  (let ((path (car command-line-args-left)))
    (install-elisp-modules	tm-mh-e-modules	"./"	path)
    )
  (setq command-line-args-left (cdr command-line-args-left))
  )

;;; mk-tmh ends here