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       (pces-modules '(pces))
  22       (poem-modules '(poem))
  23       (mcs-modules '(mcharset))
  24       (invisible-modules '(invisible))
  25       (pccl-modules '(pccl)))
  26   (cond ((featurep 'xemacs)
  27          (setq poe-modules (cons 'poe-xemacs poe-modules)
  28                invisible-modules (cons 'inv-xemacs invisible-modules))
  29          )
  30         ((>= emacs-major-version 19)
  31          (setq invisible-modules (cons 'inv-19 invisible-modules))
  32          (if (and (= emacs-major-version 19)
  33                   (<= emacs-minor-version 28))
  34              (setq poe-modules (cons 'localhook poe-modules))
  35            )
  36          )
  37         (t
  38          (setq poe-modules (cons 'poe-18 (cons 'localhook poe-modules))
  39                invisible-modules (cons 'inv-18 invisible-modules))
  40          ))
  41   (cond ((and (featurep 'xemacs)
  42               (featurep 'file-coding))
  43          (setq pces-modules (cons 'pces-xfc (cons 'pces-20 pces-modules)))
  44          (if (featurep 'mule)
  45              (setq pces-modules (cons 'pces-xm pces-modules))
  46            ))
  47         ((featurep 'mule)
  48          (cond ((>= emacs-major-version 20)
  49                 (setq pces-modules
  50                       (cons 'pces-e20 (cons 'pces-20 pces-modules)))
  51                 (or (and (fboundp 'set-buffer-multibyte)
  52                          (subrp (symbol-function 'set-buffer-multibyte)))
  53                     (setq pces-modules (cons 'pces-e20_2 pces-modules)))
  54                 )
  55                (t
  56                 ;; for MULE 1.* and 2.*
  57                 (setq pces-modules (cons 'pces-om pces-modules))
  58                 )))
  59         ((boundp 'NEMACS)
  60          ;; for Nemacs and Nepoch
  61          (setq pces-modules (cons 'pces-nemacs pces-modules))
  62          )
  63         (t
  64          (setq pces-modules (cons 'pces-raw pces-modules))
  65          ))
  66   (cond ((featurep 'mule)
  67          (cond ((featurep 'xemacs)
  68                 (setq poem-modules (cons 'poem-xm poem-modules)
  69                       mcs-modules (cons 'mcs-xm (cons 'mcs-20 mcs-modules)))
  70                 (if (>= emacs-major-version 21)
  71                     (setq pccl-modules (cons 'pccl-20 pccl-modules))
  72                   ))
  73                ((>= emacs-major-version 20)
  74                 (setq poem-modules (cons 'poem-e20 poem-modules)
  75                       mcs-modules (cons 'mcs-e20 (cons 'mcs-20 mcs-modules))
  76                       pccl-modules (cons 'pccl-20 pccl-modules))
  77                 (setq poem-modules
  78                       (cons
  79                        (if (and
  80                             (fboundp 'set-buffer-multibyte)
  81                             (subrp (symbol-function 'set-buffer-multibyte)))
  82                            'poem-e20_3
  83                          'poem-e20_2)
  84                        poem-modules))
  85                 )
  86                (t
  87                 (setq poem-modules (cons 'poem-om poem-modules)
  88                       mcs-modules (cons 'mcs-om mcs-modules)
  89                       pccl-modules (cons 'pccl-om pccl-modules)
  90                       emu-modules (cons 'emu-mule emu-modules))
  91                 ))
  92          )
  93         ((boundp 'NEMACS)
  94          (setq poem-modules (cons 'poem-nemacs poem-modules)
  95                mcs-modules (cons 'mcs-nemacs mcs-modules))
  96          )
  97         (t
  98          (setq poem-modules (cons 'poem-ltn1 poem-modules)
  99                mcs-modules (cons 'mcs-ltn1 mcs-modules))
 100          ))
 101
 102   (setq emu-modules (append poe-modules
 103                             pces-modules poem-modules
 104                             mcs-modules invisible-modules
 105                             pccl-modules pcustom-modules
 106                             emu-modules))
 107
 108   (setq emu-modules (cons 'broken emu-modules))
 109   (setq emu-modules (cons 'static emu-modules))
 110   )
 111
 112 ;;; EMU-ELS ends here