X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=TM-ELS;h=b5f030e1e9790fc283dd012c2e677d3cd2d90ff6;hb=a7388c9a369504a8de494bed38b72f386e5e004d;hp=610d912e62dd6a369b168675bc1f1feeed831a11;hpb=80871efc12c5b65a0780f0084c087076eb3bcbc8;p=elisp%2Ftm.git

diff --git a/TM-ELS b/TM-ELS
index 610d912..b5f030e 100644
--- 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