tm 7.102.

[elisp/tm.git] / TM-ELS

diff --git a/TM-ELS b/TM-ELS
index 610d912..b5f030e 100644 (file)
--- a/TM-ELS
+++ b/TM-ELS
@@ -1,88 +1,48 @@
 ;;; -*-Emacs-Lisp-*-
 ;;;
-;;; $Id: TM-ELS,v 5.0 1996/05/08 15:01:30 morioka Exp $
+;;; $Id: TM-ELS,v 7.6 1997/01/21 07:23:27 morioka Exp $
 ;;;
 
-(require 'tl-misc)
-
-(setq tm-modules
-      '("signature"
-       "tm-def"
-       "tm-ew-d" "tm-parse" "tm-view" "tm-text" "tm-play" "tm-partial"
-       "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")))
-  )
+(setq tm-modules-to-compile
+      '(signature
+       tm-def
+       tm-ew-d tm-parse tm-view tm-text tm-play tm-partial
+       tm-latex tm-html tm-tar tm-file
+       tm-ew-e tm-edit
+       tm-setup))
+
+(setq tm-modules-not-to-compile '(sc-setup))
+
+(mapcar (function
+        (lambda (cell)
+          (let ((c-module (car cell))
+                (i-modules (cdr cell))
+                )
+            (if (module-installed-p c-module)
+                (setq tm-modules-to-compile
+                      (nconc tm-modules-to-compile i-modules))
+              (setq tm-modules-not-to-compile
+                    (nconc tm-modules-not-to-compile i-modules))
+              )
+            )))
+       '((ange-ftp     tm-ftp)
+         (mailcrypt    tm-pgp tm-edit-mc)
+         (bbdb         tm-bbdb)
+         ))
 
 (if (and (file-exists-p "tm-evs.el")
         (or (boundp 'MULE)
             (boundp 'NEMACS))
         )
-    (setq tm-modules (append tm-modules '("tm-evs")))
+    (setq tm-modules-to-compile (nconc tm-modules-to-compile '(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"))
+(if (or (string-match "XEmacs" emacs-version)
+       (featurep 'mule))
+    (setq tm-modules-to-compile (nconc tm-modules-to-compile '(tm-image)))
+  )
 
-(setq setup-el-files
-      (mapcar (function (lambda (module)
-                         (concat module ".el")
-                         ))
-             setup-modules))
+(setq tm-modules (append tm-modules-to-compile
+                        tm-modules-not-to-compile))
 
-(setq setup-elc-files
-      (mapcar (function (lambda (module)
-                         (concat module ".elc")
-                         ))
-             setup-modules))
+;;; TM-ELS ends here