;;; -*-Emacs-Lisp-*-

;; 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
      (cons 'pcustom
	    (if (module-installed-p 'custom)
		nil
	      '(tinycustom)
	      )))

(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))
	 )
	((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