tm-els

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