TM-ELS

   1 ;;; -*-Emacs-Lisp-*-
   2 ;;;
   3 ;;; $Id: TM-ELS,v 7.1 1996/08/21 11:56:50 morioka Exp $
   4 ;;;
   5
   6 (setq tm-modules-to-compile
   7       '(signature
   8         tm-def
   9         tm-ew-d tm-parse tm-view tm-text tm-play tm-partial
  10         tm-latex tm-html tm-tar tm-file
  11         tm-ew-e tm-edit
  12         tm-rmail tm-mail
  13         tm-setup))
  14
  15 (setq tm-modules-not-to-compile '(sc-setup))
  16
  17 (mapcar (function
  18          (lambda (cell)
  19            (let ((c-module (car cell))
  20                  (i-module (cdr cell))
  21                  )
  22              (if (module-installed-p c-module)
  23                  (setq tm-modules-to-compile
  24                        (nconc tm-modules-to-compile (list i-module)))
  25                (setq tm-modules-not-to-compile
  26                      (nconc tm-modules-not-to-compile (list i-module)))
  27                )
  28              )))
  29         '((ange-ftp     . tm-ftp)
  30           (vm           . tm-vm)
  31           (mailcrypt    . tm-pgp)
  32           (bbdb         . tm-bbdb)
  33           ))
  34
  35 (if (and (file-exists-p "tm-evs.el")
  36          (or (boundp 'MULE)
  37              (boundp 'NEMACS))
  38          )
  39     (setq tm-modules-to-compile (nconc tm-modules-to-compile '(tm-evs)))
  40   )
  41
  42 (if (or (string-match "XEmacs" emacs-version)
  43         (boundp 'MULE)
  44         )
  45     (setq tm-modules-to-compile (nconc tm-modules-to-compile '(tm-image)))
  46   )
  47
  48 (setq tm-modules (append tm-modules-to-compile
  49                          tm-modules-not-to-compile))
  50
  51 ;;; TM-ELS ends here