;;; -*-Emacs-Lisp-*-
-;;;
-;;; $Id: EMU-ELS,v 1.7 1998-04-17 01:09:17 morioka Exp $
-;;;
-
-(setq emu-modules
- (cons
- 'emu
- (if (or running-emacs-19_29-or-later
- running-xemacs-19_14-or-later)
- '(richtext)
- '(tinyrich)
- )))
-
-(setq emu-modules
- (nconc
- (cond (running-xemacs
- ;; for XEmacs
- (cons 'emu-xemacs
- (if (featurep 'mule)
- '(emu-20 emu-x20) ; for XEmacs with MULE
- '(emu-latin1) ; for XEmacs without MULE
- ))
- )
- ((featurep 'mule)
- ;; for Emacs 20.1 or later
- (cons (if (= (length "\e$B$"\e(B") 1)
- 'emu-e20_3 ; for Emacs 20.3
- 'emu-e20_2 ; for Emacs 20.1 and 20.2
- )
- '(emu-20 emu-e19 emu-e20))
- )
- ((boundp 'MULE)
- ;; for MULE 1.* and MULE 2.*
- (cons 'emu-mule
- (if running-emacs-18
- '(emu-18 env)
- '(emu-e19)))
- )
- ((boundp 'NEMACS)
- ;; for NEmacs
- '(emu-18 emu-nemacs)
- )
- (t
- ;; for Emacs 19.34
- '(emu-e19 emu-latin1)
- ))
- emu-modules))
+
+;; EMU-ELS: list of EMU modules to install
+
+;;; Code:
+
+(setq emu-modules (cons 'emu
+ (if (or running-emacs-19_29-or-later
+ running-xemacs-19_14-or-later)
+ '(richtext)
+ '(tinyrich))))
+
+(setq pcustom-modules (if (and (module-installed-p 'custom)
+ ;; new custom requires widget.
+ (module-installed-p 'widget))
+ '(pcustom)
+ ;; XXX: order is significant in current make process.
+ '(tinycustom pcustom)))
+
+(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))
+ (if (and (= emacs-major-version 19)
+ (<= emacs-minor-version 28))
+ (setq poe-modules (cons 'localhook poe-modules))
+ )
+ )
+ (t
+ (setq poe-modules (cons 'poe-18 (cons 'localhook 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))
+ )
+ ((featurep 'file-coding)
+ (setq poem-modules (cons 'poem-xfc poem-modules)
+ mcs-modules (cons 'mcs-ltn1 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 pcustom-modules
+ emu-modules))
+
+ (setq emu-modules (cons 'broken emu-modules))
+ (setq emu-modules (cons 'static emu-modules))
+ )
;;; EMU-ELS ends here