- (append
- (cons
- (cond ((boundp 'NEMACS)
- "tm-nemacs"
- )
- ((boundp 'MULE)
- "tm-mule"
- )
- (t
- "tm-orig"
- ))
- '("signature"
- "tm-def"
- "tm-ew-d" "tm-ew-e" "tm-eword"
- "tm-parse" "tm-view" "tm-play"
- "tm-latex" "tm-w3" "tm-tar"
- "tm-rmail" "tm-comp"
- "tm-setup" "mime-setup"
- ))
- (cons
- (if (or (< emacs-major-version 19)(< emacs-minor-version 29))
- "tinyrich"
- "richtext"
- )
- '("tm-rich")
- )
- ))
-
-(setq tm-uncompile-el-files '("tm-partial.el"))
+ (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" "mime-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")))
+ )