X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mh-e%2Fmk-tmh;h=822e26708733fcca07cd2e99c55a7a535c1e5ec5;hb=2b47099f9bfa62e367a563f0009cac66938c7d66;hp=4d2fa1bf294b1585eb99f9064414f57cf023da0e;hpb=bd8478fb3ae9e63ddc962abb81f030392061bb54;p=elisp%2Ftm.git

diff --git a/mh-e/mk-tmh b/mh-e/mk-tmh
index 4d2fa1b..822e267 100644
--- a/mh-e/mk-tmh
+++ b/mh-e/mk-tmh
@@ -10,6 +10,7 @@
 		 load-path))
 
 (require 'mh-e)
+(require 'emu)
 
 (setq tm-mh-e-modules
       (append
@@ -70,6 +71,9 @@
 (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)
     ))