EMU-ELS

   1 ;;; -*-Emacs-Lisp-*-
   2
   3 ;; EMU-ELS: list of EMU modules to install
   4
   5 ;;; Code:
   6
   7 (setq emu-modules '(poe poem mcharset emu))
   8
   9 (setq emu-modules
  10       (nconc
  11        (cond ((featurep 'xemacs)
  12               ;; for XEmacs
  13               (cons 'poe-xemacs
  14                     (if (featurep 'mule)
  15                         ;; for XEmacs with MULE
  16                         '(poem-20 poem-xm mcs-20 mcs-xm pccl pccl-20
  17                                   emu-20 emu-x20)
  18                       ;; for XEmacs without MULE
  19                       '(poem-ltn1 mcs-ltn1)
  20                       ))
  21               )
  22              (running-mule-merged-emacs
  23               ;; for Emacs 20.1 or later
  24               (cons (if (and (fboundp 'set-buffer-multibyte)
  25                              (subrp (symbol-function 'set-buffer-multibyte)))
  26                         'poem-e20_3 ; for Emacs 20.3
  27                       'poem-e20_2 ; for Emacs 20.1 and 20.2
  28                       )
  29                     '(poe-19 poem-20 poem-e20 mcs-20 mcs-e20 pccl pccl-20
  30                              emu-20 emu-e20))
  31               )
  32              ((boundp 'MULE)
  33               ;; for MULE 1.* and MULE 2.*
  34               (append '(poem-om mcs-om emu-mule pccl pccl-om)
  35                       (if running-emacs-18
  36                           '(poe-18 env)
  37                         '(poe-19)))
  38               )
  39              ((boundp 'NEMACS)
  40               ;; for NEmacs
  41               '(poe-18 poem-nemacs mcs-nemacs)
  42               )
  43              (t
  44               ;; for Emacs 19.34
  45               '(poe-19 poem-ltn1 mcs-ltn1)
  46               ))
  47        emu-modules))
  48
  49 (setq emu-modules
  50       (append emu-modules
  51               (if (or running-emacs-19_29-or-later
  52                       running-xemacs-19_14-or-later)
  53                   '(richtext)
  54                 '(tinyrich)
  55                 )))
  56
  57 ;;; EMU-ELS ends here