X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mk-tm;h=c3fa1235bebccaa3d9151eef44e5e3a424f8674c;hb=6c79137304c0b1d6e94fe8cb3a38f3aad50e0195;hp=b9a42944ec4a0f1f0e5ba09c7ae94a1e441590c6;hpb=861f307ac7484a4212bd80dd71299abf078ee6cb;p=elisp%2Ftm.git

diff --git a/mk-tm b/mk-tm
index b9a4294..c3fa123 100644
--- a/mk-tm
+++ b/mk-tm
@@ -1,6 +1,6 @@
 ;;; -*-Emacs-Lisp-*-
 ;;;
-;;; $Id: mk-tm,v 7.6 1995/12/25 05:33:36 morioka Exp morioka $
+;;; $Id: mk-tm,v 7.7 1996/02/27 21:24:06 morioka Exp $
 ;;;
 
 (setq load-path (append
@@ -15,10 +15,14 @@
 (require 'tl-misc)
 
 ;; Please specify VM path.
-(add-path "vm-5.95beta/")
+(add-path "vm-5.95beta/" 'all-paths)
 
 ;; Please specify Mailcrypt path.
-(add-path "mailcrypt-3.4/")
+(add-path "mailcrypt-3.4/" 'all-paths)
+
+;; Please specify BBDB path.
+(add-path "bbdb-1.50/" 'all-paths)
+
 
 (setq tm-modules
       (cons
@@ -44,46 +48,44 @@
 
 (setq tm-uncompile-el-files '("sc-setup.el"))
 
-(if (catch 'tag
-      (let ((paths load-path) path)
-	(while paths
-	  (setq path (expand-file-name "ange-ftp.el" (car paths)))
-	  (if (file-exists-p path)
-	      (throw 'tag path)
-	    )
-	  (setq paths (cdr paths))
-	  )))
+(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 (catch 'tag
       (let ((paths load-path) path)
 	(while paths
-	  (setq path (expand-file-name "vm.elc" (car paths)))
+	  (setq path (expand-file-name "mailcrypt.el" (car paths)))
 	  (if (file-exists-p path)
 	      (throw 'tag path)
 	    )
 	  (setq paths (cdr paths))
 	  )))
-    (setq tm-modules (append tm-modules '("tm-vm")))
+    (setq tm-modules (append tm-modules '("tm-pgp")))
   (setq tm-uncompile-el-files
-	(append tm-uncompile-el-files '("tm-vm.el")))
+	(append tm-uncompile-el-files '("tm-pgp.el")))
   )
 
 (if (catch 'tag
       (let ((paths load-path) path)
 	(while paths
-	  (setq path (expand-file-name "mailcrypt.el" (car paths)))
+	  (setq path (expand-file-name "bbdb.el" (car paths)))
 	  (if (file-exists-p path)
 	      (throw 'tag path)
 	    )
 	  (setq paths (cdr paths))
 	  )))
-    (setq tm-modules (append tm-modules '("tm-pgp")))
+    (setq tm-modules (append tm-modules '("tm-bbdb")))
   (setq tm-uncompile-el-files
-	(append tm-uncompile-el-files '("tm-pgp.el")))
+	(append tm-uncompile-el-files '("tm-bbdb.el")))
   )
 
 (if (and (file-exists-p "tm-evs.el")
@@ -95,7 +97,20 @@
 
 (if (string-match "XEmacs" emacs-version)
     (setq tm-modules (append tm-modules '("tm-image")))
-  )
+  (if (boundp 'MULE)
+      (if (catch 'tag
+	    (let ((paths load-path) path)
+	      (while paths
+		(setq path (expand-file-name "bitmap.el" (car paths)))
+		(if (file-exists-p path)
+		    (throw 'tag path)
+		  )
+		(setq paths (cdr paths))
+		)))
+	  (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
       (mapcar (function (lambda (module)