mh-e/mk-tmh

   1 ;;; -*-Emacs-Lisp-*-
   2 ;;;
   3 ;;; $Id: mk-tmh,v 7.0 1996/09/03 15:23:15 morioka Exp $
   4 ;;;
   5
   6 (setq load-path (nconc
   7                  (mapcar (function
   8                           (lambda (path)
   9                             (expand-file-name path (getenv "PWD"))
  10                             ))
  11                          '("." ".." "../../tl" "../../mu" "../../mel")
  12                          )
  13                  load-path))
  14
  15 (require 'mh-e)
  16 (require 'emu)
  17 (require 'install)
  18
  19 (load-file "TMH-ELS")
  20
  21 (defun compile-tm-mh-e ()
  22   (require 'tm-mh-e)
  23   (require 'mh-comp)
  24   (require 'tm-edit)
  25   (compile-elisp-modules tm-mh-e-modules ".")
  26   )
  27
  28 (defun install-tm-mh-e ()
  29   (let ((path (car command-line-args-left)))
  30     (install-elisp-modules      tm-mh-e-modules "./"    path)
  31     )
  32   (setq command-line-args-left (cdr command-line-args-left))
  33   )
  34
  35 ;;; mk-tmh ends here