SEMI-ELS

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