projects
/
elisp
/
tm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
tm 7.89.
[elisp/tm.git]
/
mk-tm
diff --git
a/mk-tm
b/mk-tm
index
a37059a
..
c3fa123
100644
(file)
--- a/
mk-tm
+++ b/
mk-tm
@@
-1,6
+1,6
@@
;;; -*-Emacs-Lisp-*-
;;;
;;; -*-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
;;;
(setq load-path (append
@@
-20,7
+20,7
@@
;; Please specify Mailcrypt path.
(add-path "mailcrypt-3.4/" 'all-paths)
;; Please specify Mailcrypt path.
(add-path "mailcrypt-3.4/" 'all-paths)
-;; Please specify Mailcrypt path.
+;; Please specify BBDB path.
(add-path "bbdb-1.50/" 'all-paths)
(add-path "bbdb-1.50/" 'all-paths)
@@
-48,29
+48,13
@@
(setq tm-uncompile-el-files '("sc-setup.el"))
(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")))
)
(setq tm-modules (append tm-modules '("tm-ftp")))
(setq tm-uncompile-el-files
(append tm-uncompile-el-files '("tm-ftp.el")))
)
-(if (catch 'tag
- (let ((paths load-path) path)
- (while paths
- (setq path (expand-file-name "vm.elc" (car paths)))
- (if (file-exists-p path)
- (throw 'tag path)
- )
- (setq paths (cdr paths))
- )))
+(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")))
(setq tm-modules (append tm-modules '("tm-vm")))
(setq tm-uncompile-el-files
(append tm-uncompile-el-files '("tm-vm.el")))