* broken.el: require 'poe.

[elisp/apel.git] / EMU-ELS

diff --git a/EMU-ELS b/EMU-ELS
index 8ba4731..39259c4 100644 (file)
--- a/EMU-ELS
+++ b/EMU-ELS
@@ -1,48 +1,77 @@
 ;;; -*-Emacs-Lisp-*-
-;;;
-;;; $Id: EMU-ELS,v 1.3 1997-08-30 05:30:43 morioka Exp $
-;;;
 
-(setq emu-modules
-      (cons
-       'emu
-       (if (or running-emacs-19_29-or-later
-              running-xemacs-19_14-or-later)
-          '(richtext)
-        '(tinyrich)
-        )))
+;; EMU-ELS: list of EMU modules to install
 
-(setq emu-modules
-      (nconc
-       (cond (running-mule-merged-emacs
-             '(emu-e20 emu-20)
-             )
-            (running-xemacs-with-mule
-             '(emu-x20 emu-20)
-             )
-            ((boundp 'MULE)
-             '(emu-mule)
-             )
-            ((boundp 'NEMACS)
-             '(emu-nemacs)
-             )
-            (t
-             '(emu-e19)
-             ))
-       emu-modules))
+;;; Code:
 
-(setq emu-modules
-      (nconc
-       (cond (running-emacs-18
-             '(emu-18 env)
-             )
-            (running-xemacs
-             '(emu-xemacs)
-             )
-            (t
-             '(emu-19)
-             )
-            )
-       emu-modules))
+(setq emu-modules (cons 'emu
+                       (if (or running-emacs-19_29-or-later
+                               running-xemacs-19_14-or-later)
+                           '(richtext)
+                         '(tinyrich)
+                         )))
+
+(let ((poe-modules '(poe))
+      (poem-modules '(poem))
+      (mcs-modules '(mcharset))
+      (invisible-modules '(invisible))
+      (pccl-modules '(pccl)))
+  (cond ((featurep 'xemacs)
+        (setq poe-modules (cons 'poe-xemacs poe-modules)
+              invisible-modules (cons 'inv-xemacs invisible-modules))
+        )
+       ((>= emacs-major-version 19)
+        (setq invisible-modules (cons 'inv-19 invisible-modules))
+        )
+       (t
+        (setq poe-modules (cons 'poe-18 poe-modules)
+              invisible-modules (cons 'inv-18 invisible-modules))
+        ))
+  (cond ((featurep 'mule)
+        (cond ((featurep 'xemacs)
+               (setq poem-modules (cons 'poem-xm (cons 'poem-20
+                                                       poem-modules))
+                     mcs-modules (cons 'mcs-xm (cons 'mcs-20 mcs-modules)))
+               (if (>= emacs-major-version 21)
+                   (setq pccl-modules (cons 'pccl-20 pccl-modules))
+                 )
+               )
+              ((>= emacs-major-version 20)
+               (setq poem-modules (cons 'poem-e20 (cons 'poem-20
+                                                        poem-modules))
+                     mcs-modules (cons 'mcs-e20 (cons 'mcs-20
+                                                      mcs-modules))
+                     pccl-modules (cons 'pccl-20 pccl-modules))
+               (setq poem-modules
+                     (cons
+                      (if (and
+                           (fboundp 'set-buffer-multibyte)
+                           (subrp (symbol-function 'set-buffer-multibyte)))
+                          'poem-e20_3
+                        'poem-e20_2)
+                      poem-modules))
+               )
+              (t
+               (setq poem-modules (cons 'poem-om poem-modules)
+                     mcs-modules (cons 'mcs-om mcs-modules)
+                     pccl-modules (cons 'pccl-om pccl-modules)
+                     emu-modules (cons 'emu-mule emu-modules))
+               ))
+        )
+       ((boundp 'NEMACS)
+        (setq poem-modules (cons 'poem-nemacs poem-modules)
+              mcs-modules (cons 'mcs-nemacs mcs-modules))
+        )
+       (t
+        (setq poem-modules (cons 'poem-ltn1 poem-modules)
+              mcs-modules (cons 'mcs-ltn1 mcs-modules))
+        ))
+  
+  (setq emu-modules (append poe-modules poem-modules
+                           mcs-modules invisible-modules
+                           pccl-modules
+                           emu-modules))
+  (setq emu-modules (cons 'broken emu-modules))
+  )
 
 ;;; EMU-ELS ends here