X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=TM-ELS;h=570ffcdabb96130bc2ae4be9e2c61218bdb991eb;hb=b77b17617ad6e2d752ffa07cc4232a54c6ebae81;hp=d1b19a6d2004a30114a77132fee68978d96478b9;hpb=e1dc63c7ac20fe2e60dd02e21ad56bb3fa03b7f8;p=elisp%2Ftm.git

diff --git a/TM-ELS b/TM-ELS
index d1b19a6..570ffcd 100644
--- a/TM-ELS
+++ b/TM-ELS
@@ -1,99 +1,49 @@
 ;;; -*-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")))
-  )
+;; TM-ELS: list of tm modules to install
+
+;;; Code:
+
+(setq tm-modules-to-compile
+      '(signature
+	tm-def
+	tm-parse tm-view tm-text tm-play tm-partial
+	tm-latex tm-html tm-tar tm-file
+	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