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
  14 (setq pcustom-modules
  15       (cons 'pcustom
  16             (if (module-installed-p 'custom)
  17                 nil
  18               '(tinycustom)
  19               )))
  20
  21 (let ((poe-modules '(poe))
  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          )
  33         (t
  34          (setq poe-modules (cons 'poe-18 poe-modules)
  35                invisible-modules (cons 'inv-18 invisible-modules))
  36          ))
  37   (cond ((featurep 'mule)
  38          (cond ((featurep 'xemacs)
  39                 (setq poem-modules (cons 'poem-xm (cons 'poem-20
  40                                                         poem-modules))
  41                       mcs-modules (cons 'mcs-xm (cons 'mcs-20 mcs-modules)))
  42                 (if (>= emacs-major-version 21)
  43                     (setq pccl-modules (cons 'pccl-20 pccl-modules))
  44                   )
  45                 )
  46                ((>= emacs-major-version 20)
  47                 (setq poem-modules (cons 'poem-e20 (cons 'poem-20
  48                                                          poem-modules))
  49                       mcs-modules (cons 'mcs-e20 (cons 'mcs-20
  50                                                        mcs-modules))
  51                       pccl-modules (cons 'pccl-20 pccl-modules))
  52                 (setq poem-modules
  53                       (cons
  54                        (if (and
  55                             (fboundp 'set-buffer-multibyte)
  56                             (subrp (symbol-function 'set-buffer-multibyte)))
  57                            'poem-e20_3
  58                          'poem-e20_2)
  59                        poem-modules))
  60                 )
  61                (t
  62                 (setq poem-modules (cons 'poem-om poem-modules)
  63                       mcs-modules (cons 'mcs-om mcs-modules)
  64                       pccl-modules (cons 'pccl-om pccl-modules)
  65                       emu-modules (cons 'emu-mule emu-modules))
  66                 ))
  67          )
  68         ((boundp 'NEMACS)
  69          (setq poem-modules (cons 'poem-nemacs poem-modules)
  70                mcs-modules (cons 'mcs-nemacs mcs-modules))
  71          )
  72         (t
  73          (setq poem-modules (cons 'poem-ltn1 poem-modules)
  74                mcs-modules (cons 'mcs-ltn1 mcs-modules))
  75          ))
  76
  77   (setq emu-modules (append poe-modules poem-modules
  78                             mcs-modules invisible-modules
  79                             pccl-modules pcustom-modules
  80                             emu-modules))
  81   (setq emu-modules (cons 'broken emu-modules))
  82   )
  83
  84 ;;; EMU-ELS ends here