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