EMU-ELS

   1 ;;; -*-Emacs-Lisp-*-
   2 ;;;
   3 ;;; $Id: EMU-ELS,v 1.7 1998-04-17 01:09:17 morioka Exp $
   4 ;;;
   5
   6 (setq emu-modules
   7       (cons
   8        'emu
   9        (if (or running-emacs-19_29-or-later
  10                running-xemacs-19_14-or-later)
  11            '(richtext)
  12          '(tinyrich)
  13          )))
  14
  15 (setq emu-modules
  16       (nconc
  17        (cond (running-xemacs
  18               ;; for XEmacs
  19               (cons 'emu-xemacs
  20                     (if (featurep 'mule)
  21                         '(emu-20 emu-x20) ; for XEmacs with MULE
  22                       '(emu-latin1) ; for XEmacs without MULE
  23                       ))
  24               )
  25              ((featurep 'mule)
  26               ;; for Emacs 20.1 or later
  27               (cons (if (= (length "\e$B$"\e(B") 1)
  28                         'emu-e20_3 ; for Emacs 20.3
  29                       'emu-e20_2 ; for Emacs 20.1 and 20.2
  30                       )
  31                     '(emu-20 emu-e19 emu-e20))
  32               )
  33              ((boundp 'MULE)
  34               ;; for MULE 1.* and MULE 2.*
  35               (cons 'emu-mule
  36                     (if running-emacs-18
  37                         '(emu-18 env)
  38                       '(emu-e19)))
  39               )
  40              ((boundp 'NEMACS)
  41               ;; for NEmacs
  42               '(emu-18 emu-nemacs)
  43               )
  44              (t
  45               ;; for Emacs 19.34
  46               '(emu-e19 emu-latin1)
  47               ))
  48        emu-modules))
  49
  50 ;;; EMU-ELS ends here