tm 6.92.

[elisp/tm.git] / mk-tm

diff --git a/mk-tm b/mk-tm
index ea71099..3c371cd 100644 (file)
--- 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)
           )