X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mk-tm;h=3c371cd9a8d01669762029d49827c78e47253e4e;hb=b179f4a4cadf140ecea4ac8714e8dab808f79862;hp=ea710995393410628fd8a20a21d44eec7c439cac;hpb=1f8064d416e7dc106fd99dc538724f94d88286bc;p=elisp%2Ftm.git

diff --git a/mk-tm b/mk-tm
index ea71099..3c371cd 100644
--- a/mk-tm
+++ b/mk-tm
@@ -1,6 +1,6 @@
 ;;; -*-Emacs-Lisp-*-
 ;;;
-;;; $Id: mk-tm,v 2.0 1995/09/04 00:50:39 morioka Exp morioka $
+;;; $Id: mk-tm,v 3.0 1995/09/24 20:41:39 morioka Exp morioka $
 ;;;
 
 (setq load-path (append
@@ -30,19 +30,17 @@
 	       ))
 	'("signature"
 	  "tiny-mime" "tm-def" "tm-view"
-	  "tm-latex"
+	  "tm-latex" "tm-w3" "tm-tar"
 	  "tm-rmail" "tm-comp"
 	  "tm-setup" "mime-setup"
 	  ))
-       (if (not (string-match "\\(XEmacs\\|Lucid\\)" emacs-version))
-	   (progn
-	     (cons
-	      (if (or (< emacs-major-version 19)(< emacs-minor-version 29))
-		  "tinyrich"
-		"richtext"
-		)
-	      '("tm-rich")
-	      )))
+       (cons
+	(if (or (< emacs-major-version 19)(< emacs-minor-version 29))
+	    "tinyrich"
+	  "richtext"
+	  )
+	'("tm-rich")
+	)
        ))
 
 (setq tm-uncompile-el-files '("tm-partial.el"))
@@ -88,7 +86,7 @@
 	      tm-modules))
 
 (defun compile-tm ()
-  (mapcar (function byte-compile-file) tm-el-files)
+  (mapcar (function byte-compile-file file) tm-el-files)
   )
 
 (defconst el-file-mode (+ (* 64 6)(* 8 4) 4))
@@ -126,6 +124,9 @@
 (defun install-tm ()
   (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
 	   (append tm-el-files tm-uncompile-el-files)
 	   )