;;; -*-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))
(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")
)
(if (or (string-match "XEmacs" emacs-version)
- (boundp 'MULE)
- )
+ (featurep 'mule))
(setq tm-modules-to-compile (nconc tm-modules-to-compile '(tm-image)))
)