+++ /dev/null
-;;; -*-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