tm 7.46.1.

[elisp/tm.git] / tm-els

diff --git a/tm-els b/tm-els
new file mode 100644 (file)
index 0000000..8537e0f
--- /dev/null
+++ b/tm-els
@@ -0,0 +1,99 @@
+;;; -*-Emacs-Lisp-*-
+;;;
+;;; $Id: tm-els,v 1.2 1996/03/04 08:57:38 morioka Exp $
+;;;
+
+(require 'tl-misc)
+
+(setq tm-modules
+      (cons
+       (cond ((boundp 'NEMACS)
+             "tm-nemacs"
+             )
+            ((boundp 'MULE)
+             "tm-mule"
+             )
+            (t
+             "tm-orig"
+             ))
+       '("signature"
+        "tm-def"
+        "tm-ew-d" "tm-parse" "tm-view" "tm-play" "tm-partial"
+        "tm-rich"
+        "tm-latex" "tm-html" "tm-tar" "tm-file"
+        "tm-ew-e"
+        "tm-edit"
+        "tm-rmail" "tm-mail"
+        "tm-setup"
+        )))
+
+(setq tm-uncompile-el-files '("sc-setup.el"))
+
+(if (file-installed-p "ange-ftp.el")
+    (setq tm-modules (append tm-modules '("tm-ftp")))
+  (setq tm-uncompile-el-files
+       (append tm-uncompile-el-files '("tm-ftp.el")))
+  )
+
+(if (file-installed-p "vm.elc")
+    (setq tm-modules (append tm-modules '("tm-vm")))
+  (setq tm-uncompile-el-files
+       (append tm-uncompile-el-files '("tm-vm.el")))
+  )
+
+(if (file-installed-p "mailcrypt.el")
+    (setq tm-modules (append tm-modules '("tm-pgp")))
+  (setq tm-uncompile-el-files
+       (append tm-uncompile-el-files '("tm-pgp.el")))
+  )
+
+(if (file-installed-p "bbdb.el")
+    (setq tm-modules (append tm-modules '("tm-bbdb")))
+  (setq tm-uncompile-el-files
+       (append tm-uncompile-el-files '("tm-bbdb.el")))
+  )
+
+(if (and (file-exists-p "tm-evs.el")
+        (or (boundp 'MULE)
+            (boundp 'NEMACS))
+        )
+    (setq tm-modules (append tm-modules '("tm-evs")))
+  )
+
+(if (string-match "XEmacs" emacs-version)
+    (setq tm-modules (append tm-modules '("tm-image")))
+  (if (boundp 'MULE)
+      (if (file-installed-p "bitmap.el")
+         (setq tm-modules (append tm-modules '("tm-image")))
+       (setq tm-uncompile-el-files
+             (append tm-uncompile-el-files '("tm-image.el")))
+       )))
+
+(setq tm-el-files
+      (append
+       (mapcar (function (lambda (module)
+                          (concat module ".el")
+                          ))
+              tm-modules)
+       tm-uncompile-el-files))
+
+(setq tm-elc-files
+      (mapcar (function (lambda (module)
+                         (concat module ".elc")
+                         ))
+             tm-modules))
+
+
+(setq setup-modules '("mime-setup"))
+
+(setq setup-el-files
+      (mapcar (function (lambda (module)
+                         (concat module ".el")
+                         ))
+             setup-modules))
+
+(setq setup-elc-files
+      (mapcar (function (lambda (module)
+                         (concat module ".elc")
+                         ))
+             setup-modules))