TM-ELS

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