TM-ELS

   1 ;;; -*-Emacs-Lisp-*-
   2 ;;;
   3 ;;; $Id: TM-ELS,v 5.0 1996/05/08 15:01:30 morioka Exp $
   4 ;;;
   5
   6 (require 'tl-misc)
   7
   8 (setq tm-modules
   9       '("signature"
  10         "tm-def"
  11         "tm-ew-d" "tm-parse" "tm-view" "tm-text" "tm-play" "tm-partial"
  12         "tm-latex" "tm-html" "tm-tar" "tm-file"
  13         "tm-ew-e"
  14         "tm-edit"
  15         "tm-rmail" "tm-mail"
  16         "tm-setup"
  17         ))
  18
  19 (setq tm-uncompile-el-files '("sc-setup.el"))
  20
  21 (if (file-installed-p "ange-ftp.el")
  22     (setq tm-modules (append tm-modules '("tm-ftp")))
  23   (setq tm-uncompile-el-files
  24         (append tm-uncompile-el-files '("tm-ftp.el")))
  25   )
  26
  27 (if (file-installed-p "vm.elc")
  28     (setq tm-modules (append tm-modules '("tm-vm")))
  29   (setq tm-uncompile-el-files
  30         (append tm-uncompile-el-files '("tm-vm.el")))
  31   )
  32
  33 (if (file-installed-p "mailcrypt.el")
  34     (setq tm-modules (append tm-modules '("tm-pgp")))
  35   (setq tm-uncompile-el-files
  36         (append tm-uncompile-el-files '("tm-pgp.el")))
  37   )
  38
  39 (if (file-installed-p "bbdb.el")
  40     (setq tm-modules (append tm-modules '("tm-bbdb")))
  41   (setq tm-uncompile-el-files
  42         (append tm-uncompile-el-files '("tm-bbdb.el")))
  43   )
  44
  45 (if (and (file-exists-p "tm-evs.el")
  46          (or (boundp 'MULE)
  47              (boundp 'NEMACS))
  48          )
  49     (setq tm-modules (append tm-modules '("tm-evs")))
  50   )
  51
  52 (if (string-match "XEmacs" emacs-version)
  53     (setq tm-modules (append tm-modules '("tm-image")))
  54   (if (boundp 'MULE)
  55       (if (file-installed-p "bitmap.el")
  56           (setq tm-modules (append tm-modules '("tm-image")))
  57         (setq tm-uncompile-el-files
  58               (append tm-uncompile-el-files '("tm-image.el")))
  59         )))
  60
  61 (setq tm-el-files
  62       (append
  63        (mapcar (function (lambda (module)
  64                            (concat module ".el")
  65                            ))
  66                tm-modules)
  67        tm-uncompile-el-files))
  68
  69 (setq tm-elc-files
  70       (mapcar (function (lambda (module)
  71                           (concat module ".elc")
  72                           ))
  73               tm-modules))
  74
  75
  76 (setq setup-modules '("mime-setup"))
  77
  78 (setq setup-el-files
  79       (mapcar (function (lambda (module)
  80                           (concat module ".el")
  81                           ))
  82               setup-modules))
  83
  84 (setq setup-elc-files
  85       (mapcar (function (lambda (module)
  86                           (concat module ".elc")
  87                           ))
  88               setup-modules))