EMU-ELS

   1 ;;; -*-Emacs-Lisp-*-
   2
   3 ;; EMU-ELS: list of EMU modules to install
   4
   5 ;;; Code:
   6
   7 (setq emu-modules (cons 'emu
   8                         (if (or running-emacs-19_29-or-later
   9                                 running-xemacs-19_14-or-later)
  10                             '(richtext)
  11                           '(tinyrich))))
  12
  13 (setq pcustom-modules (if (and (module-installed-p 'custom)
  14                                ;; new custom requires widget.
  15                                (module-installed-p 'widget))
  16                           '(pcustom)
  17                         ;; XXX: order is significant in current make process.
  18                         '(tinycustom pcustom)))
  19
  20 (let ((poe-modules '(poe))
  21       (poem-modules '(poem))
  22       (mcs-modules '(mcharset))
  23       (invisible-modules '(invisible))
  24       (pccl-modules '(pccl)))
  25   (cond ((featurep 'xemacs)
  26          (setq poe-modules (cons 'poe-xemacs poe-modules)
  27                invisible-modules (cons 'inv-xemacs invisible-modules))
  28          )
  29         ((>= emacs-major-version 19)
  30          (setq invisible-modules (cons 'inv-19 invisible-modules))
  31          (if (and (= emacs-major-version 19)
  32                   (<= emacs-minor-version 28))
  33              (setq poe-modules (cons 'localhook poe-modules))
  34            )
  35          )
  36         (t
  37          (setq poe-modules (cons 'poe-18 (cons 'localhook poe-modules))
  38                invisible-modules (cons 'inv-18 invisible-modules))
  39          ))
  40   (cond ((featurep 'mule)
  41          (cond ((featurep 'xemacs)
  42                 (setq poem-modules (cons 'poem-xm (cons 'poem-20
  43                                                         poem-modules))
  44                       mcs-modules (cons 'mcs-xm (cons 'mcs-20 mcs-modules)))
  45                 (if (>= emacs-major-version 21)
  46                     (setq pccl-modules (cons 'pccl-20 pccl-modules))
  47                   )
  48                 )
  49                ((>= emacs-major-version 20)
  50                 (setq poem-modules (cons 'poem-e20 (cons 'poem-20
  51                                                          poem-modules))
  52                       mcs-modules (cons 'mcs-e20 (cons 'mcs-20
  53                                                        mcs-modules))
  54                       pccl-modules (cons 'pccl-20 pccl-modules))
  55                 (setq poem-modules
  56                       (cons
  57                        (if (and
  58                             (fboundp 'set-buffer-multibyte)
  59                             (subrp (symbol-function 'set-buffer-multibyte)))
  60                            'poem-e20_3
  61                          'poem-e20_2)
  62                        poem-modules))
  63                 )
  64                (t
  65                 (setq poem-modules (cons 'poem-om poem-modules)
  66                       mcs-modules (cons 'mcs-om mcs-modules)
  67                       pccl-modules (cons 'pccl-om pccl-modules)
  68                       emu-modules (cons 'emu-mule emu-modules))
  69                 ))
  70          )
  71         ((boundp 'NEMACS)
  72          (setq poem-modules (cons 'poem-nemacs poem-modules)
  73                mcs-modules (cons 'mcs-nemacs mcs-modules))
  74          )
  75         ((featurep 'file-coding)
  76          (setq poem-modules (cons 'poem-xfc poem-modules)
  77                mcs-modules (cons 'mcs-ltn1 mcs-modules))
  78          )
  79         (t
  80          (setq poem-modules (cons 'poem-ltn1 poem-modules)
  81                mcs-modules (cons 'mcs-ltn1 mcs-modules))
  82          ))
  83
  84   (setq emu-modules (append poe-modules poem-modules
  85                             mcs-modules invisible-modules
  86                             pccl-modules pcustom-modules
  87                             emu-modules))
  88
  89   (setq emu-modules (cons 'broken emu-modules))
  90   (setq emu-modules (cons 'static emu-modules))
  91   )
  92
  93 ;;; EMU-ELS ends here