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

diff --git a/TM-ELS b/TM-ELS
index 0604599..570ffcd 100644
--- a/TM-ELS
+++ b/TM-ELS
@@ -1,14 +1,15 @@
 ;;; -*-Emacs-Lisp-*-
-;;;
-;;; $Id: TM-ELS,v 7.3 1996/09/06 15:40:10 morioka Exp $
-;;;
+
+;; TM-ELS: list of tm modules to install
+
+;;; Code:
 
 (setq tm-modules-to-compile
       '(signature
 	tm-def
-	tm-ew-d tm-parse tm-view tm-text tm-play tm-partial
+	tm-parse tm-view tm-text tm-play tm-partial
 	tm-latex tm-html tm-tar tm-file
-	tm-ew-e tm-edit
+	tm-edit
 	tm-setup))
 
 (setq tm-modules-not-to-compile '(sc-setup))
@@ -16,18 +17,18 @@
 (mapcar (function
 	 (lambda (cell)
 	   (let ((c-module (car cell))
-		 (i-module (cdr cell))
+		 (i-modules (cdr cell))
 		 )
 	     (if (module-installed-p c-module)
 		 (setq tm-modules-to-compile
-		       (nconc tm-modules-to-compile (list i-module)))
+		       (nconc tm-modules-to-compile i-modules))
 	       (setq tm-modules-not-to-compile
-		     (nconc tm-modules-not-to-compile (list i-module)))
+		     (nconc tm-modules-not-to-compile i-modules))
 	       )
 	     )))
-	'((ange-ftp	. tm-ftp)
-	  (mailcrypt	. tm-pgp)
-	  (bbdb		. tm-bbdb)
+	'((ange-ftp	tm-ftp)
+	  (mailcrypt	tm-pgp tm-edit-mc)
+	  (bbdb		tm-bbdb)
 	  ))
 
 (if (and (file-exists-p "tm-evs.el")
@@ -38,8 +39,7 @@
   )
 
 (if (or (string-match "XEmacs" emacs-version)
-	(boundp 'MULE)
-	)
+	(featurep 'mule))
     (setq tm-modules-to-compile (nconc tm-modules-to-compile '(tm-image)))
   )