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