TM-ELS

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